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Preface 


This  report  presents  graphics  examples  and  corresponding  computer 
codes  for  each  example  to  supplement  the  computer  resident  course  on 
Computer-Aided  Instruction  (CAI)  for  the  Graphics  Compatibility  System 
(GCS) .  The  work  in  preparing  the  CAI  lessons  and  this  report  was  per¬ 
formed  at  the  U.  S.  Army  Engineer  Waterways  Experiment  Station  (WES)  as 
a  part  of  a  project  sponsored  by  the  Computation  and  Analysis  Section, 
Office,  Chief  of  Engineers,  U.  S.  Army  (OCE) ,  to  develop  computer 
graphics  applications  for  the  Corps  of  Engineers  and  to  maintain  and 
support  GCS. 

The  work  in  preparing  the  lessons  was  done  by  Dr.  Darrell  Ward, 
expert.  Automatic  Data  Processing  (ADP)  Center,  WES,  and  Mr.  James  M. 
Jones  II,  formerly  with  the  Research  and  Development  Software  Group 
(RADSG) ,  ADP  Center,  WES.  Mr.  Michael  E.  George,  RADSG,  made  some 
changes  to  the  lessons  and  compiled  this  report.  The  work  was  done 
under  the  supervision  of  Mr.  Fred  T.  Tracy,  Chief,  RADSG,  and  Dr.  N. 
Radhakrishnan,  Special  Technical  Assistant,  ADP  Center,  and  under  the 
general  supervision  of  Mr.  Donald  L.  Neumann,  Chief,  ADP  Center. 

Directors  of  WES  during  the  preparation  and  publication  of  this 
report  were  COL  N.  P.  Conover,  CE,  and  COL  T.  C.  Creel,  CE.  Technical 
Director  was  Mr.  F.  R.  Brown. 
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NOTEBOOK  FOR  LESSONS  ON  THE 


GRAPHICS  COMPATIBILITY  SYSTEM  (GCS) 


Introduction 


1.  A  series  of  lessons  has  been  developed  for  teaching  graphics 
programming  with  computer  assistance.  These  lessons  are  intended  to 
serve  as  a  refresher  course  as  well  as  an  initial  exposure  to  graphics 
programming  with  the  Graphics  Compatibility  System  (GCS) .  The  lessons 
effectively  communicate  the  concepts,  examples,  and  information  con¬ 
tained  in  the  first  11  chapters  of  the  GCS  "Primer  on  Computer  Graphics 
Programming."  There  are  two  versions  of  each  lesson:  one  provides  text 
output  at  an  alphanumeric  terminal,  and  the  other  provides  both  text  and 
graphics  output  when  used  on  a  Tektronix  4014  graphics  terminal.  The  13 
lessons  have  been  implemented  on  the  Honeywell  computers  at  the  U.  S. 
Army  Engineer  Waterways  Experiment  Station  (WES)  in  Vicksburg,  Miss., 
and  at  Macon,  Ga. ,  and  the  CDC  computer  with  Boeing  Computer  Services 
and  must  be  executed  in  time-sharing. 

Execution 


2.  To  execute  the  lessons  on  the  WES  or  Macon  systems,  enter  the 
following: 

*F0RT  NEW 

*RUN  GRAPHICS/GCSCAI.R 

3.  To  execute  the  lessons  on  the  Boeing  system,  enter  the 
following: 

C>OLD,GCSCAI/UN=CECELB 

C>CALL,GCSCAI 

4.  Upon  execution,  the  following  is  printed  from  the  computer: 
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GREETINGS  TO  YOU  TODAY.  IF  YOU  WOULD  LIKE  TO  SEE  THE  LESSON  INDEX 
THEN  TYPE  IN  YES  WHEN  THE  EQUAL  SIGN  IS  TYPED,  OTHERWISE  TYPE  IN 
NO  AND  IN  EITHER  CASE  PRESS  THE  RETURN  KEY  TO  TERMINATE  YOUR  REPLY. 


5.  A  response  of  YES  will  yield  the  following  index  of  lessons: 


LESSON 


LESSON  CONTENTS 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 


IMPORTANT  TECHNICAL  CONCEPTS  AND 
CONVENTIONS  IN  GCS 

GCS  PROGRAMMING  FUNDAMENTALS 

VIRTUAL  AND  DEVICE  GRAPHICS  IN  GCS 

ALPHANUMERIC  OUTPUT  WITH  GCS 

GRAPHICAL  AND  ALPHANUMERIC  INPUT  WITH  GCS 

PROBLEM  1 

GCS  UTILITY  ROUTINES 
HIGH  LEvEL  GRAPHICS  WITH  GCS 
PROBLEM  2 

COORDINATE  SYSTEMS  AND  TRANSFORMATIONS 
THREE-DIMENSIONAL  GRAPHICS 
GRAPHICAL  DATA  STRUCTURING  PROCESSING 
PICTURE  SEGMENTATION  AND  NAMING 


6.  The  following  is  then  output: 

PLEASE  INPUT  THE  NUMBER  OF  THE  LESSON  THAT  YOU  WISH  TO  TAKE 
THEN  PRESS  THE  RETURN  KEY 
=  (enter  a  number  from  1  to  13) 

ARE  YOU  USING  A  TEKTRONIX  4014  GRAPHICS  TERMINAL  (YES/NO)? 

=  (enter  either  YES  or  NO) 


The  lesson  will  now  execute. 

7.  After  the  lesson  has  been  completed,  the  following  message  is 


output: 


WOULD  YOU  LIKE  TO  TAKE  ANOTHER  LESSON  (YES/NO)? 

=  (enter  either  YES  or  NO) 


8.  If  a  YES  answer  is  entered,  the  following  is  then  output: 

WOULD  YOU  LIKE  TO  SEE  THE  LESSON  INDEX  AGAIN  (YES/NO)? 

=  (enter  either  YES  or  NO) 

9.  If  the  user  enters  NO  to  taking  another  lesson,  the  lesson 
session  is  terminated. 


Examples 

10.  The  following  examples  are  the  same  examples  that  are  plotted 
in  the  lessons.  If  the  user  is  taking  the  lessons  on  an  alphanumeric 
terminal,  the  lessons  will  pause,  giving  the  user  a  chance  to  look  at 
the  example  being  discussed.  If  the  user  is  taking  the  lessons  using 
a  Tektronix  4014  graphics  terminal,  the  example  will  be  plotted  and  the 
user  given  a  chance  to  replot  the  example  as  many  times  as  necessary  to 
fully  understand  the  example.  In  either  case,  the  source  code  for  each 
example  can  only  be  viewed  by  using  this  manual. 
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EXAMPLE  2.1 


THIS  SAMPLE  PROGRAM  WILL  DEMONSTRATE  SIMPLE  LINE-DRAWING  BY 
DRAWING  A  SQUARE  BOX  IN  4  PEN  MOVEMENTS. 

INITIALIZE  GCS 

THIS  INITIALIZATION  SETS  GCS  TO  RECTANGULAR,  ABSOLUTE  COORDINATES 
SOLID  LINE  PEN-DRAWING  MODE  AND  INITIAL  PEN  COORDINATES  '0.,0.>. 

CALL  USTART 

NOTE  THAT  ALL  GCS  SUBROUTINES  USE  ‘REAL*  CALLING  PARAMETERS.  THU 
COORDINATES  MUST  BE  ENTERED  AS  REAL  NUMBERS  (WITH  DECIMAL  POINTS) 

MOVE  PEN  TO  < 0 . » 50 . )  THEREBY  DRAWING  LINE  <0.,0.)  TO  (0.,50.) 

CALL  UPEN  ( 0 . , 50 . ) 

MOVE  PEN  TO  (50., 50.)  THEREBY  DRAWING  LINE  ( 0  . » 50 . >  TO  (50., 50.) 
CALL  UPEN  (50., 50.) 

MOVE  PEN  TO  (50., 0.)  THEREBY  DRAWING  LINE  (50., 50.)  TO  (50., 0.) 
CALL  UPEN  (50., 0.) 

MOVE  PEN  TO  (0.,0.)  THEREBY  DRAWING  LINE  <50. ,0.)  TO  (0.»0.) 

CALL  UPEN  <0.,0.) 

THIS  COMPLETES  DRAWING  OF  THE  SOUARE. 

WRAP-UP.  FIRST  TERMINATE  GCS  BY  CALL  UEND.  THEN  STOP  EXECUTION 
WITH  STOP.  FINALLY  END  FORTRAN  PROGRAM  WITH  END. 

CALL  UEND 

STOP 

END 
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Figure  1.  Example  2.1 


nnn  nnnn  nnn  nnn  non  non  n 


EXAMPLE  2.2 


THIS  PROGRAM  DEMONSTRATES  USE  OF  THE  MOVE  COMMAND  TO  MOVE  THE  PEN 
INVISIBLY  WITHOUT  NEED  FOR  A  MODE  CHANGE.  IT  DRAWS  A  SQUARE 
IDENTICAL  TO  THE  PREVIOUS  ONE. 

INITIALIZE  GCS 

CALL  USTART 


DRAW  A  BOX  AROUND  THE  DEFAULT  DEVICE  PLOTTING  AREA. 

CALL  UMOVE  <0.*0.) 

CALL  UPEN  <100. *0.) 

CALL  UPEN  <100. *100.) 

CALL  UPEN  <0.*100.) 

CALL  UPEN  <0. *0.  ) 

MOVE  PEN  INVISIBLY  TO  COORDINATES  <45. *45.) 

CALL  UMOVE  (  45. *45.  ) 


NO  CHANGE  HAS  BEEN  MADE  IN  PEN  STATUS  SO  IT  IS  STILL  IN  THE  DFFAULT 
CASE  OF  SOLID  LINES.  DRAW  THE  SQUARE. 


CALL  UPEN  <45., 95.) 
CALL  UPEN  <95. *95. ) 
CALL  UPEN  <95., 45.) 
CALL  UPEN  (45. *45.  ) 


WRAP  UP 


CALL  UEND 

STOP 

END 
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Figure  2.  Example  2.2 
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EXAMPLE  2.3 


THIS  PROGRAM  DEMONSTRATES  THE  USE  OF  A  MODE  CHANGE  TO  MOVE  THE  F'EH 
POSITION  WITHOUT  DRAWING  A  LINE.  OTHERWISE  IT  DRAWS  A  SQUARE 
IDENTICAL  TO  THE  PREVIOUS  EXAMPLE. 

INITIALIZATION  BY  USTART  IS  ALWAYS  NECESSARY.  AMONG  OTHER  THINGS  IT 
AUTOMATICALLY  SETS  PEN  STATUS  FOR  DRAWING  SOLID  LINES  AND  INITIAL 
PEN  POSITION  TO  COORDINATES  <0.,0.) 

CALL  USTART 

DRAW  A  BOX  AROUND  THE  DEFAULT  DEVICE  PLOTTING  AREA. 

CALL  UMOVE  (0.,0.) 

CALL  UPEN  (100. ,0.) 

CALL  UPEN  (100. .100.) 

CALL  UPEN  (O.f 100. > 

CALL  UPEN  (0.,0.) 

SET  MODE  TO  *  NOLINE*  AND  THEN  MOVE  PEN  TO  COORDINATES  (45., 45.) 
WITHOUT  DRAWING  A  LINE. 

CALL  USET  < ‘NOLINE* ) 

CALL  UPEN  (45., 45.) 

NOW  RESET  PEN  STATUS  FOR  DRAWING  SOLID  LINES  AND  DRAW  A  SQUARE. 

CALL  USET  CLINE*) 

CALL  UPEN  (45. ,95. ) 

CALL  UPEN  (95., 95.) 

CALL  UPEN  (95., 45.) 

CALL  UPEN  (45., 45.) 

WRAP  UP 

CALL  UEND 

STOP 

END 
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EXAMPLE  2.4 


CALL  UEND 

STOP 

END 
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Figure  4.  Example  2.4 
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EXAMPLE  2 .  *i 


C  SAMPLE  PROGRAM  TO  ILLUSTRATE  TIC  LIME  GENERATION  OPTIONS 
C  AVAILABLE  THROUGH  GCS.  INITIALIZE  GCS,  SET  PEN  STATUS  TO 
C  THE  ’TIC*  MODE.  AND  THEN  DRAW  A  LINE  WHICH  BEGINS  AT  (0..99.) 
C  AND  TERMINATES  AT  (100.. 99.)  USING  THE  DEFAULT  TIC  LENGTH. 

C 

CALL  U START 

CALL  USET  C  TICLINE' ) 

CALL  UMOVE  (0..99.) 

CALL  UPEN  <100.. 99. ) 

REQUEST  TICS  TO  APPEAR  AT  EVERY  2.0  VIRTUAL  UNITS  AND  DRAW 

A  LINE  WHICH  STARTS  AT  (0..90.)  AND  ENDS  AT  (100. .30.) 

CALL  UPSET  ( 'TICINTERVAL' . 2. ) 

CALL  UMOVE  (0..80.  ) 

CALL  UPEN  <100. .80.) 

REOUEST  TICS  TO  APPEAR  AT  EVERY  5.0  VIRTUAL  UNITS  AND  DRAW 

A  LINE  WHICH  STARTS  AT  ( 0 . . 60 . >  AND  ENDS  AT  (100. .40.) 

CALL  UPSET  <  'TICINTERVAL ' .5, ) 

CALL  UMOVE  <0.,60.) 

CALL  UPEN  (100.. 60.) 

REQUEST  TICS  TO  APPEAR  AT  EVERY  10.0  VIRTUAL  UNITS  AND  DRAW 
A  LINE  WHICH  STARTS  AT  (0..40.)  AND  ENDS  AT  (100.. 40.) 

CALL  UPSET  ( 'TICINTERVAL*. 10.) 

CALL  UMOVE  <0.»40.) 

CALL  UPEN  <100., 40.) 

REQUEST  TICS  TO  APPEAR  AT  EVERY  20.0  VIRTUAL  UNITS  AND  DRAW 
A  LINE  WHICH  STARTS  AT  (0..20.)  AND  ENDS  AT  (100. ,20.) 

TURN  OFF  THE  TOP  PART  OF  THE  TIC  CTICPLUS*). 

CALL  UPSET  ('TICINTERVAL *,20.) 

CALL  UPSET  < 'TICPLUS*  »0. ) 

CALL  UMOVE  (0..20.) 

CALL  UPEN  (100.. 20.) 

REQUEST  TICS  TO  APPEAR  AT  EVERY  50.0  VIRTUAL  UNITS  AND  DRAW 
A  LINE  WHICH  STARTS  AT  (O.rl.)  AND  ENDS  AT  (100. ,1.) 

TURN  OFF  THE  BOTTOM  OF  THE  TIC  CTICMINUS')  AND  CHANGE 
THE  LENGTH  OF  THE  TOP  PART  OF  THE  TIC  CTICPLUS*). 

CALL  UPSET  ('TICINTERVAL', 50.) 

CALL  UPSET  ( 'TICPLUS', 1.) 

CALL  UPSET  CTICMINUS', 0.) 

CALL  UMOVE  <0.,1.) 

CALL  UPEN  <100., 1.) 


WRAP  UP 


CALL  UEND 

STOP 

END 


1A 
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EXAMPLE  2.6 


SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  DASHED  LINE  GENERATION 
OPTIONS  AVAILABLE  THROUGH  GCS.  INITIALIZE  GCSr  SET  THE 
PEN  STATUS  TO  ’DASHLINE'  NODE  AND  DRAW  A  LINE  WHICH  BEGINS  AT 
(0.,100.)  AND  TERMINATES  AT  <  100. ,100.).  THE  DEFAULT 
VALUE  OF  DASH  WILL  BE  USED  FOR  THIS  CASE. 

CALL  USTART 

CALL  USET  ( 'DASHLINE* ) 

CALL  UMOVE  <0.»100.) 

CALL  UPEN  (100. .100.) 

SET  THE  DASH  SPECIFICATION  TO  54.0  AND  DRAW  A  LINE  THAT 
STARTS  AT  (0.,80.)  AND  ENDS  AT  (100. .80.) 


CALL  UPSET  CSETDASH’ 
CALL  UMOVE  <0.,80.) 
CALL  UPEN  (100.. 80.) 


.54.) 


SET  THE  DASH  SPECIFICATION  TO  56.0  AND  DRAW  A  LINE  THAT 
STARTS  AT  (0.,60.)  AND  ENDS  AT  (100. ,60.) 

CALL  UPSET  CSETDASH’, 56.) 

CALL  UMOVE  (0.,60.) 

CALL  UPEN  (100., 60.) 

SET  THE  DASH  SPECIFICATION  TO  5212.0  AND  DRAW  A  LINE  THAT 
STARTS  AT  (0.,40.)  AND  ENDS  AT  (100. ,40.) 

CALL  UPSET  CSETDASH’, 5212.) 

CALL  UMOVE  <0.,40.) 

CALL  UPEN  (100., 40.) 

SET  THE  DASH  SPECIFICATION  TO  3.0  AND  DRAW  A  LINE  THAT 
STARTS  AT  (0.,20.)  AND  ENDS  AT  (100. ,20.) 

NOTICE  THE  USE  OF  HARDWARE  GENERATED  LINES. 

CALL  UPSET  CSETDASH’, 3.) 

CALL  UMOVE  (0.,20.) 

CALL  UPEN  (100., 20.) 

SET  THE  DASH  SPECIFICATION  TO  9.0  AND  DRAW  A  LINE  THAT 
STARTS  AT  (0.,0.)  AND  ENDS  AT  (100., 0.) 

NOTICE  THE  USE  OF  HARDWARE  GENERATED  LINES. 

CALL  UPSET  CSETDASH’, 9.) 

CALL  UMOVE  (0.,0.) 

CALL  UPEN  (100.,0.) 

WRAP  UP 

CALL  UEND 

STOP 

END 
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Figure  6.  Example  2.6 
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EXAMPLE  2.7 


C 

C  SAMPLE  PROGRAM  THAT  ILLUSTRATES  THE  USE  OF  POLAR 
C  PLOTTING  IN  RELATIVE  MODE.  INITIALIZE  GCS,  SET 
C  THE  COORDINATE  TYPE  TO  •POLAR1  AND  MOVE  TO  THE 
C  STARTING  LOCATION. 

C 

CALL  USTART 

CALL  USET  ( ‘POLAR  COORDINATES1) 

CALL  UMOVE  <50.*SQRT<2. ) H5. ) 

ALTERNATE  BETWEEN  ‘RELATIVE '  AMD  ‘ABSOLUTE* 
COORDINATE  MODE  TO  DRAW  A  SERIES  OF  RADIAL  LINES. 

DO  100  K  =  1.  361 »  10 
I  =  K  -  1 

CALL  USET  < ‘RELATIVE  PLOTTING  MODE1) 

CALL  UPEN  ( 50 . »FLOAT  (I)) 

CALL  USET  (‘ABSOLUTE  PLOTTING  MODE*) 

CALL  UMOVE  (50.*SQRT<2. ) j 45. ) 

100  CONTINUE 

WRAP  UP 

CALL  UEND 
STOP 
END 
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EXAMPLE  3.1 


THIS  PROGRAM  GENERATES  TWO  VECTORS  WITH  ARROW  LINES. 

AND  THE  RESULTANT  VECTOR  WITH  A  DASHED  ARROW  LINE. 

INITIALIZE  GCS  AND  GENERATE  AN  OUTLINE 

CALL  USTART 
CALL  UOUTLN 

REDEFINE  THE  'VIRTUAL'  WINDOW. 

CALL  UWINDO  ( -50000. .50000. .0 .00001 . 0 . 00005 > 

DRAW  THE  TWO  VECTORS. 

MOVE  TO  THE  BEGINNING  POINT  OF  THE  FIRST  VECTOR  AND 
SET  TO  ARROW  MODE  AND  DRAW  VECTOR  FROM  ( -40000 0 . 00004 ) 
TO  (40000. .0.00004) 

CALL  UMOVE  ( -40000. . 0 . 00004  ) 

CALL  USET  ('ARROWHEAD  LINE') 

CALL  UPEN  (40000. .0.00004) 

DRAW  SECOND  VECTOR  FROM  END  OF  FIRST  TO  ( 40000 .. 0 . 00002 ) 

CALL  UPEN  (40000.. 0.00002) 

MOVE  TO  BEGINNING  OF  VECTOR  SYSTEM 

CALL  UMOVE  < -40000 .. 0 . 00004 ) 

SET  PEN  STATUS  TO  DRAW  A  DASHED  ARROW  AND  DRAW 
RESULTANT  VECTOR 

CALL  USET  ( 'DARROWHEAD  LINE') 

CALL  UPEN  (40000.. 0.00002) 

WRAP  UP 

CALL  UEND 

STOP 

END 
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Figure  8.  Example  3.1 
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EXAMPLE  3.2 


C 

C  SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  ELEMENTARY  SIX-LEVEL 
C  ZOOMING  BY  ADJUSTING  ONLY  THE  VIRTUAL  WINDOW  BOUNDARIES. 
C  NOTE  THAT  THE  PEN  COMMANDS  REQUIRED  TO  DRAW  THE  FIGURE 
C  REMAIN  UNCHANGED. 

C 

C  ENTER  GCS  AND  SET  UP  LOOP  TO  PERMIT  US  TO  ZOOM  AWAY 

C  FROM  FIGURE. 

C 

CALL  USTART 
DO  1  I  -  1  >  6 

ERASE  THE  SCREEN  AND  DEFINE  THE  BOUNDARIES  FOR  OUR  NEW 
WINDOW. 

CALL  UERASE 

BOUNDS  -  50.  *  FLOAT ( I ) 

CALL  UUINDO  ( -BOUNDS . BOUNDS f -BOUNDS » BOUNDS ) 

OUTLINE  THE  DEFAULT  DEVICE  AREA  AND  DRAW  THE  FIGURE. 

CALL  UOUTLN 
CALL  DRWFIG 
1  CONTINUE 

WRAP  UP  ALL  GRAPHICS  ACTIVITY  AND  TERMINATE  THE  FORTRAN 
PROGRAM. 

CALL  UEND 
STOP 
END 

SUBROUTINE  DRWFIG 

SUBROUTINE  USED  TO  GENERATE  A  PENTAGON  WITHIN  A  CIRCLE  > 
RING  A  BELL  AND  PAUSE.  PUSH  THE  RETURN  KEY  TO  CONTINUE. 

CALL  USET  (“POLAR  COORDINATES’) 

DO  10  I  -  If  361 ?  10 
K  =  I  -  1 

IF  (K.EQ.O)  CALL  UMOVE  < 25 . f FLOAT ( K ) ) 

IF  (K.NE.O)  CALL  UPEN  (25. (FLOAT  (K>> 

10  CONTINUE 

DO  20  I  =  If  6 

ANGLE  =  18.  +  FLOAT <  I  —  1 )  *  72. 

IF  (I.EO.l)  CALL  UMOVE  (15. (ANGLE) 

IF  (I.NE.l)  CALL  UPEN  <15. .ANGLE) 

20  CONTINUE 
CALL  UBELL 
CALL  UPAUSE 
CALL  UEND 
STOP 
END 
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Figure  11.  Example  3.2  (continued) 


Figure  12.  Example  3.2  (continued) 
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EXAMPLE  3.3 


CALL  USET  < 'POLAR  COORDINATES') 

00  10  I  *  If  361 f  10 
K  =  I  -  1 

IF  (K.EQ.O)  CALL  UMOVE  <25.fFL0AT(K> > 
IF  (K.NE.O)  CALL  UPEN  (25. fFLOAT  (K>> 
10  CONTINUE 

DO  20  I  =  If  A 

ANGLE  *  18.  +  FLOAT (1-1)  *  72. 

IF  (I.EQ.l)  CALL  UM0VE  ( 15. f ANGLE) 

IF  U.NE.l)  CALL  UPEN  < 15. f ANGLE) 

20  CONTINUE 
CALL  UBELL 
CALL  UPAUSE 
CALL  UEND 
STOP 
END 
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EXAMPLE  3.4 


C 

C  SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  ELEMENTARY  SIX-LEVEL 
C  ZOOMING  BY  ADJUSTING  ONLY  THE  VIRTUAL  WINDOW  BOUNDARIES 
C  NOTE  THAT  THE  PEN  COMMANDS  REQUIRED  TO  DRAW  THE  FIGURE 
C  REMAIN  UNCHANGED.  ALSO  NOTE  THE  DISTORTION  DUE  TO  THE 
C  OF  NON-SQUARE  WINDOWING. 

C 

C  INITIALIZE  GCS  AND  SET  UP  A  LOOP  TO  PERMIT  US  TO  ZOOM 
C  TOWARD  THE  FIGURE. 

C 

CALL  USTART 
DO  1  I  Mr  i 

ERASE  THE  SCREEN  AND  DEFINE  THE  BOUNDARIES  FOR  DUF: 

NEW  WINDOW. 

CALL  UERASE 

XBOUND  =  50.  -  (S.tFLOAT ( I  —  1 ) ) 

YBOUND  =  50.  -  ( 2 , StFLOAT ( I -1 > ) 

CALL  UWINDO  (-XBOUND. XBOUND r -YBOUND. YBOUND > 

OUTLINE  THE  DEFAULT  DEVICE  AREA  AND  DRAW  THE  FIGURE. 

CALL  UOUTLN 
CALL  DRWFIG 
1  CONTINUE 

WRAP  UP 

CALL  UEND 
STOP 
END 

SUBROUTINE  DRWFIG 

SUBROUTINE  USED  TO  GENERATE  A  PENTAGON  WITHIN  A  CIRCLE. 
RING  A  BELL  AND  PAUSE.  PUSH  THE  RETURN  KEY  TO  CONTINUE 

CALL  USET  ('POLAR  COORDINATES') 

DO  10  I  -  1.  361.  10 
K  =  I  -  1 

IF  (K.EQ.O)  CALL  UMOVE  ( 25 .. FLOAT ( K )  ) 

IF  (K.NE.O)  CALL  UPEN  (25. .FLOAT  (K>> 

10  CONTINUE 

DO  20  I  =  1.  6 

ANGLE  =  18.  +  FLOAT < 1-1 )  *  72. 

IF  (I.EQ.l)  CALL  UMOVE  <15. .ANGLE) 

IF  (I.NE.l)  CALL  UPEN  <15. .ANGLE) 

20  CONTINUE 
CALL  UBELL 
CALL  UPAUSE 
CALI  UEND 
STOP 
END 
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Figure  22.  Example  3.4  (continued) 
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Figure  24.  Example  3.4  (continued) 
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EXAMPLE  2.5 


C 

C  SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  ELEMENTARY  SIX-LEVEL 
C  ZOOMING  BY  ADJUSTING  ONLY  THE  VIRTUAL  WINDOW  BOUNDARIES. 
C  NOTE  THAT  THE  PEN  COMMANDS  REQUIRED  TO  DRAW  THE  FIGURE 
C  REMAIN  UNCHANGED.  ALSO  NOTE  THE  CLIPPING  OF  THE  FIGURE 
C  AT  THE  WINDOW  BOUNDARY. 

C 

C  INITIALIZE  GCS  AND  SET  UP  A  LOOP  TO  PERMIT  US  TO  ZOOM 
C  TOWARD  THE  FIGURE. 

C 

CALL  USTART 
DO  1  I  =  If  6 

ERASE  THE  SCREEN  AND  DEFINE  THE  BOUNDARIES  FOR  OUR  NEW 
WINDOW. 

CALL  UERASE 
XYMIN  -  -nZ • 

XYMAX  =  25. *-  <7.5*FL0AT(I-1)> 

CALL  UWINDO  < XYMIN, XYMAX , XYMIN, XYMAX) 

OUTLINE  THE  DEFAULT  DEVICE  AREA  AND  DRAW  THE  FIGURE. 

CALL  UOUTLN 
CALL  DRWFIG 
1  CONTINUE 

WRAP  UP 

CALL  UEND 
STOP 
END 

SUBROUTINE  DRWFIG 

SUBROUTINE  USED  TO  GENERATE  A  PENTAGON  WITHIN  A  CIRCLE, 
RING  A  BELL  AND  PAUSE.  PUSH  THE  RETURN  KEY  TO  CONTINUE. 


CALL  USET  ('POLAR  COORDINATES') 
DO  10  I  =  I,  361,  10 


K  =  I  -  1 

IF  (K.EQ.O)  CALL  UMOVE  ( 25 ., FLOAT ( K ) ) 
IF  (K.NE.O)  CALL  UPEN  <25., FLOAT  (K>> 
10  CONTINUE 

DO  20  I  =  1,  6 

ANGLE  =  18.  +  FLOAT < I  —  1 )  *  72. 


IF  (I.EQ.l)  CALL  UMOVE  ( 15. f ANGLE ) 
IF  (I.NE.l)  CALL  UPEN  <15., ANGLE) 
20  CONTINUE 
CALL  UBELL 
CALL  UPAUSE 
CALL  UEND 
STOP 


END 
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EXAMPLE  3.6 


SAMPLE  PROGRAM  TO  GENERA < c  A  SIMPLE  STREET  DIAGRAM 
FOR  A  TEKTRONIX  4010/4013  TERMINAL.  NOTE  THAT  ALL 
(X,  Y)  VALUES  ARE  GIVEN  IN  DEVICE  UNITS.  THE  DEFAULT 
DEVICE  UNIT  IS  INCHES. 

INITIALIZATION?  DEVICE  MODE  ENTRY  AND  OUTLINE 
GENERATION. 


CALL  USTART 
CALL  USET  (‘DEVICE  UNITS*) 

CALL  UOUTLN 

GENERATION  OF  ROADS  WITH  THE  DEFAULT  CASE  OF  LINES 
IN  TERMS  OF  INCHES. 

CALL  UMOVE  (0.3 *2. 7) 

CALL  UPEN  ( 7 . 2 ? 2 . 7 ) 

CALL  UMOVE  (7.2.2. 1) 

CALL  UPEN  (4.5.2. 1) 

CALL  UPEN  (2. 5. 0.3) 

CALL  UMOVE  <1.7,0.31 
CALL  UPEN  (3.7,2. 1) 

CALL  UPEN  (0.3, 2.1) 

GENERATION  OF  HOUSES  WITH  DASHED  LINES  IN  TERMS  OF 
CENTIMETERS. 

CALL  USET  (‘CENTIMETERS') 

CALL  '(SET  ( ‘DASHLINE ‘  ) 

CALL  UMOVE  (12.5,5.0) 

CALL  UPEN  (15. ,5.) 

CALL  UPEN  (15. ,2.5) 

CALL  UPEN  (12.5,2.5) 

CALL  UPEN  (12.5,5.) 

CALL  UMOVE  (5. ,7.5) 

CALL  UPEN  (11.3,7.5) 

CALL  UPEN  (11.3,10.0) 

CALL  UPEN  (5., 10.) 

CALL  UPEN  (5. ,7.5) 

GENERATION  OF  DIRECTION  REFERENCES  WITH  ARROW  LINES 
IN  TERMS  OF  PERCENTUNITS . 

CALL  USET  (‘PERCENTUNITS') 

CALL  USET  (‘ARROWHEAD  LINE*) 

CALL  UMOVE  (10., 80.) 

CALL  UPEN  (20., 80.) 

CALL  UMOVE  (15.,  75.) 

CALL  UPEN  (15. ,85.) 

WRAP  UP 


CALL  UEND 

STOP 

END 
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EXAMPLE  3.8 


SAMPLE  PROGRAM  TO  GENERATE  THE  SAME  DISPLAY  AT  VARIOU 
LOCATIONS  ON  THE  DEVICE.  THIS  IS  WRITTEN  FOR  A 
TEKTRONIX  4014/4015. 

INITIALIZE  GCS  AND  OUTLINE  THE  DEFAULT  DEVICE  AREA. 

CALL  UERASE 
CALL  UOUTLN 

FOR  EACH  OF  THE  THREE  PASSES ,  DEFINE  A  DEVICE  AREA* 
OUTLINE  THE  DEVICE  AREA  AND  DRAW  THE  FIGURE. 

DO  10  I  =  1.  3 

IF  (I  .EQ.  1)  CALL  UDAREA  <  5 . ,  9 . ,  0 .  >  4 .  > 

IF  (I  .EQ.  2)  CALL  UDAREA  ( 10 . , 14 . . 1 . » 5 . ) 

IF  (I  .EQ.  3)  CALL  UDAREA  ( 6 . , 10 . * 6 . » 1 0 . > 

CALL  UOUTLN 

CALL  THE  SUBROUTINE  TO  DRAW  THE  FIGURE 

CALL  GRAFIT 
10  CONTINUE 

WRAP  UP 


CALL  UEND 

STOP 

END 

SUBROUTINE  GRAFIT 

SUBROUTINE  USED  TO  DRAW  THE  FIGURE. 

CALL  UMOVE  <10. ,10.) 

CALL  USET  CLINE’) 

CALL  UPEN  <90., 10.) 

CALL  UMOVE  <20. ,10.) 

CALL  UPEN  <30., 70.) 

CALL  UPEN  (70., 70.) 

CALL  UPEN  <80  ,10.) 

CALL  UMOVE  <30., 70.) 

CALL  USET  < ’DOUBLE  ARROWHEAD  LINE’) 
CALL  UPEN  <40., 10.) 

CALL  UPEN  (50., 70.) 

CALL  UPEN(60. ,10. ) 

CALL  UPEN  <70., 70.) 

CALL  UEND 

STOP 

END 
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EXAMPLE  3.9 


THIS  PROGRAM  GENERATES  A  FIGURE*  A  VERTICALLY 
DISTORTED  VERSION  OF  THE  FIGURE  AND  A 
HORIZONTALLY  DISTORTED  VERSION  OF  THE  FIGURE. 

THIS  IS  WRITTEN  FOR  A  TEKTRONIX  4010/4013. 

INITIALIZATION 

CALL  USTART 

FOR  EACH  OF  THE  THREE  PASSES,  DEFINE  A  NEW  DEVICE 
PLOTTING  AREA,  OUTLINE  THE  AREA  AND  DRAW  THE  FIGURE. 

XO  =  -2.1 
DO  10  I  -  1,  3 
XO  =  XO  +  2.5 

CALL  UDAREA*  <X0»X0+2.»2.,3.5) 

IF(I.Ea.2)  CALL  UDAREA  (X0,X0+2. ,2. 3, 3. 2) 

IF  (I.EQ.3)  CALL  UDAREA  < X0+ . 5 , XG+ 1 . 5 , 2 . , 3 . 5 > 

CALL  UOUTLN 

CALL  UMOVE  (50., 20.) 

CALL  UPEN1  (50  .  ,80. ,  1  DOUBLE ARROW  * ) 

CALL  UMOVE  (10., 90.) 

CALL  UPEN  (50. ,65. ) 

CALL  UPEN  (100. ,65.) 

CALL  UMOVE  (10. ,90. ) 

CALL  UPEN  (50., 50. ) 

CALL  UPEN  (100. ,50.) 

CALL  UMOVE  (10. ,90.) 

CALL  UPEN  (50., 35.) 

CALL  UPEN  (100., 35.) 

10  CONTINUE 

WRAP  UP 

CALL  UEND 

STOP 

END 
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EXAMPLE 


4.1 


SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  OPTIONS  AVAILABLE 
THROUGH  'UPRINT’  AND  ’UWRITE’.  THE  DEFAULT  VIRTUAL 
WINDOW  AND  DEVICE  AREA  WILL  BE  USED. 

DIMENSION  COORD  (2) 

DATA  COORD/25., 0.999E?/ 

INTI ALIZE  GCS.  CHANGE  THE  DEFAULT  TERMINATOR  <\> 

FOR  'TEXT*  TO  A  'I*  AND  USE  'EXTRAIAROE*  CHARAC  TFRS . 

OUTPUT  A  LINE  OF  TEXT  AT  (0..75.).  NOTE  THAT  THE 
TEXT  STRING  IS  CLIPPED  AT  THE  DEVICE  AREA  BOUNDARY. 

CALL  USTART 

CALL  UPSET  (‘TERMINATOR  CHARACTER  ‘ ‘  5  *  ) 

CALL  USET  CEXTRALARGE  CHARACTERS') 

CALL  UPRINT  <0 . . 75 . . ’ THIS  IS  A  SAMPI F  (IMF  OF  OUTPUT  TEXT 
1  WHICH  WILL  BE  CLIPPED?*) 

SPECIFY  ‘REALNUMBER*  MODE  OF  OPERATION  AND  USr 
•UWRITE*  TO  OUTPUT  THE  NUMBER  100. 

CALL  USET  (‘REALNUMBER*) 

CALL  UWRITE  (50. .25. » 100. ) 

SPECIFY  ’INTEGER'  MODE  AND  OUT  PUT  THE  NUMBER 
-123454789.  NOTICE  THAT  SINCE  ALL  GCS  MUST  PE 
REAL  NUMBERS,  EVEN  THIS  INTEGER  MUST  BE  PASSED 
AS  A  REAL  NUMBER. 

CALL  USET  (‘INTEGER’) 

CALL  UPRINT  (  75 . , 0  . »  -1  .’  .M.,47^9  .  ) 

SPECIFY  'XYCOORDINATES'  MODE.  NOTE  (HE  VARIED 
FORM  OF  OUTPUT  OF  REAL  NUMBERS  WITH  *G‘  EOKMAI  . 

CALL  USET  (’XYCOORDINATES*) 

CALL  UWRITE  ( 25 . , 50  .  .COORD  ) 

C 

C  WRAP  UP 

C 

CALL  UEND 

STOP 

END 
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THIS  IS  A  SAMPLE  LINE  OF  OUTPUT  TEXT  UHICH  UILL  BE  CLIP 


(25. , .9990E+?) 


100. 


-123456789 

F i oure  36.  Example  4. 1 
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EXAMPLE  4.1 


SAMPLE  PROGRAM  TO  ILLUSTRATE  THE  OPTIONS  AVAILABLE 
THROUGH  HARGINNING.  DEFAULT  UALUES  WILL  PE  USED  IN  THIS 
EXAMPLE  WITH  ADDITIONAL  CALLS  TO  ' UMAR5H '  TO  ADJUST 
THE  ALPHANUMERIC  MARGIN  BOUNDARIES. 

SET  UP  A  300  CHARACTER  ARRAY  NAMED  SAMPLE  AND  INITIALIZE. 

NOTE  THE  USE  CP  A  SEMICOLON  ' i >  AS  THE  LAST  CHARACTER. 

CHARACTER  SAMPLE*?0C 

DATA  SAMPLE.' ‘THIS  IS  A  LINE  OF  OUTPUT  TEXT  WHICH  IS  LONG 
i  ENOUGH  TO  CAUSE  THE  ALPHANUMERIC  OUT'UT  T3  WRAP-AROUND.  NOTE  TH 
t  EPrECTS  WHICH  THE  DEFAULT  MARGINS  HAVE  UPON  OUTPUT}’/ 

INITIALIZE  GCS .  SET  ALL  X><)  COORDINATES  TO  DEVICE  UNITS 
AND  CHANGE  THE  DEVICE  UNITS  T0  PERCENT’JNI  TS .  REMEMBER 
THAT  MARGINING  ONLY  WORKS  IN  ‘DEVICE*  COORDINATE  SPACE. 

ALSO  CHANGE  THE  TEXT  STRING  TERMINATOR  TO  AS*  AND 
USE  ‘EXTRALARGE’  CHARACTERS. 

CALL  USTART 

CALL  USET  '‘DEVICE  UNITS*  ) 

CALL  UPSET  '‘TERMINATOR  CHARACTER  S*  / 

CALL  USET  ' ‘PERCENTUNITS*  : 

CALL  USET  ( ‘EXTRALARGE  CHARACTERS*/ 

0UTRUT  THE  TEXT  STRING  AND  NOTE  THE  WRAR  AR'OUND. 

CALL  URRINT  ' 33 . >  25. » SAMPLE ; 

SPECIFY  ‘ PONTUNI T £ ‘  AS  THF  DEVICE  UNIT  OF  MEASURE.  THE 
ALLOWS  rO'J  TO  SET  MARGINS  EASED  UPON  A  S!"Gl  I  CHoRALltR 
HEIGHT  AND  WIDTH.  PEMEMEER  THE  PULPS  E  OR  MAMi INN  ’  Hfj 
IP  THE  STARTING  ROSTION  OF  THE  TF/T  STRING  i E  . 

ABOVE  THE  TOR  MARGIN. 

OUTPUT  THE  TEXT  STRING.  NOTICE  THE  *i‘. 

CALL  USET  '  ‘FONT’.NITS* ) 

CALL  UMAPGN  '  35 .  r  it . ,  1  .  <  IC .  ) 

CALL  URRINT  (0. » 4000. f  ‘HE  ;  10  I  HE  RE  1  »  ‘  . 

WRAP  UR 

CALL  UEND 

STOP 

END 
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THIS  IS  A  LINE  OF  OUTPUT  TEXT  WHICH  IS  LONG  ENOUGH 
TO  CAUSE  THE  ALPHANUMERIC  OUTPUT  TO  URAP-AROUND.  NOTE  THE  EFFECTS  WHICH 
THE  DEFAULT  MARGINS  HAUE  UPON  OUTPUT 


Figure  37.  Examnle  4.2 
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EXAMPLE  4.3 


SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  SINGLE  CHARACTER 
OUTPUT  AND  LINE  TERMINATOR  OPTIONS  AVAILABLE 
THROUGH  ‘UPEN‘.  TWO  GRAPHS  MILL  BE  PLOTTED. 

SET  UP  X»  Y  AND  Z  ARRAYS.  PRESTORE  DATA  IN  THEM. 

DIMENSION  X(il),  Y < 1 1 > »  Z<11) 

DATA  X/0, » 10. »20. »30. »40. »50. t60. »70, f 80. f 90. » 100. / 
DATA  Y/0.»10.»20. f30. f  40. »50. »60. »70. .80. »90. *100./ 
DATA  Z/0. » 1 . » 4. f  9. f 16 . »25. f  36 . f  49. f  6 4 . f  B1 . f  1 00 > / 

INITIALIZE  GCS  AND  OUTLINE  THE  DEFAULT  DEVICE  AREA. 

SET  THE  CHARACTER  SIZE  TO  'EXTRALARGE * . 

CALL  USTART 

CALL  USET  (‘EXTRALARGE  CHARACTERS’) 

CALL  UOUTLN 

SPECIFY  THAT  AN  'A*  TERMINATOR  MILL  BE  DRAWN  AFTER 
EACH  ‘UPEN‘.  MOVE  TO  AN  INITIAL  <Xr Y)  POINT. 

CALL  USET  CLA‘) 

CALL  UMOVE  (X(1>fY(1)) 

DRAM  11  LINE  SEGMENTS  AND  NOTICE  THE  ‘A*. 

DO  1  I  =  If  11 

1  CALL  UPEN  (X(I)fY(I)) 

SPECIFY  THAT  ‘NULL'  LINES  HILL  BE  DRAWN  WITH  A  *B‘ 

AT  THE  END  OF  EACH  INVISIBLE  LINE  SEGMENT. 

CALL  USET  ( *NB*  > 

MOVE  TO  THE  FIRST  (XfZ)  POINTf  THEN  PLOT  11  (XrZ) 
VALUES. 

CALL  UMOVE  <X(1)»Z(1)> 

DO  2  I  =  If  11 

2  CALL  UPEN  (X(I)fZ(I)) 

MRAP  UP 

CALL  UEND 

STOP 

END 
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EXAMPLE  4.4 


C 

C  SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  CHARACTER 
C  TERMINATOR  AND  ALPHANUMERIC  OUTPUT  USED  IN 
C  CONJUNCTION  WITH  GRAPHICAL  OUTPUT.  THIS  PROGRAM 
C  WAS  WRITTEN  FOR  A  TEKTRONIX  4014/4015  TERMINAL. 

C 

C  ALLOCATE  ARRAYS  AND  INITIALIZE  ALL  VARIABLES 
C  THAT  WILL  PE  USED 
C 

CHARACTER  R0UTINEt?<4) 

INDEX  -  0 
C 

ROUTINE ( 1 ) r ‘ UPEN » * 
routine<2)-’1!aout;* 

ROUT INE ( 3 ) r ‘ UPRN T 1  ,  * 

ROUTINE ( 4 )  =  *  UWKI T 1  :  * 

INITIALIZE  GCS .  DIVIDE  THE  DEVICE  PLOTTING 
AREA  INTO  POUR  EQUAL  PARTS.  CHOOSE  'Vh  FART 
AND  OUTLINE  THE  'UDAREA* . 

CALL  USTART 

CALL  USET  CEXTRALARGE  CHARACTERS* J 
CALL  UPSET  !* TERMINATOR  CHARACTER *.* i  * : 

DO  5  I  -  1.4 
INDEX  =  INDEX  +  1 

IF  (I.EQ.l)  CALL  UDAREA  <2. .7. >5.5.10,5) 

IF  (I.EQ.2)  CALL  UDAREA (7 . 5 > 1 2 . 5 . 5 . 5 , 1 0 . 5 ) 

IF  (I.EQ.3)  CALL  UDAREA ( 2 . > 7 . > 0  .  > 5  .  ) 

IF  (I.EQ.4)  CALL  UDAREA ( 7 . 5> 12 . 5 » 0 . > 5  .  > 

CALL  UOUTLN 


MOVE  TO  (0..0.)  AND  SPECIFY  STANDARD  LINE  UTTH 
NO  TERMINATOR.  IF  *UPEN*  OPTION  IS  IN  EFFECT 
SPECIFY  AN  *  A  *  AS  THE  TERMINATOR. 


CALL  UMOVE  (0. >0.  ) 

CALL  USET  CLNULL*  ) 

IF  (INDEX  .EQ.  1)  CALL  USET  CLA*) 

DRAW  A  LINE  THEN  BRANCH  TO  ONE  OF  THE  FOUR 
ROUTINES  TO  PRINT  AN  *A*  AT  THE  END  OF  THE  LINE. 

DO  4  K  =  1.  4 

CALL  UPEN  <<25.*FL0AT<K>),<25.*FL0AT!K>)) 

GO  TO  (4 . 1 . 2.3 ) .  INDEX 

1  CALL  UAOUT  (*A>*) 

GO  TO  4 

2  CALL  UPRNT1  ( *  At  * . ‘TEXT* ) 

GO  TO  4 

3  CALL  UWRIT1  < ' A. * » *  TEXT  * > 

4  CONTINUE 

OUTPUT  THE  NAME  OF  THE  ROUTINE  USED  IN  THE 
BOTTOM  RIGHT  CORNER.  REMEMBER  THE  WINDOW 
BOUNDARIES  ARE  THE  SAME  FOR  ALL  FOUR  DEVICE  AREAS. 

CALL  UPRINT  ( 75 .. 2 . .ROUTINE ( INDEX ) ) 

5  CONTINUE 

WRAP  UP 

CALL  UEND 

STOP 

END 
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EXAMPLE  1.5 


SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  ALT  HANUMERIC  OUTPL 
THROUGH  'SOFTWARE'  CHARACTER  OPTION  IN  CCS.  THE  EE 
EXAMPLES  SHOW:  SOFTWARE  CHARACTER  OUTPUT  'ISIND  ’TALK 
CHARACTERS.  GOTHIC  ••  DEFAULT  I  OUT  PR 1  LI  :  H  -  A  R '  E  -  3  < 
AND  REDUCED  AND  ROTATED  SOFTWARE  CHAF.ACTE*  r  - 1 : 

CHARACTER  QUTFIJ50 
CHARACTER  9 U  T 1  l  t  v ) 

CHARACTER  FOPMT* 1 

DATA  OUTPT/ 'REDUCED  AND  ROTATED  DHAR.’t  T*  >  i  ' 

DATA  DEO.'  15 .  •' 


C  INITIALISE  OCS  AND  ERE' 


•SOFTWARE ' 


CALL  USTAR1 
CALl  UOUTLN 

CALL  USE  T  (  ’  -  OF  TUAP.E  DENE1-*  TED 


OUTPUT  TEX  I  WITH  'ITALICS'  SCf’WA-E 


CALL  USE!  < ' I T AL I . S  '  ) 

CALL  UFPINT  ■:  1C.  .5.  .  'SAMPLE  0:  F’.M  I  •  :  ‘ 

r 

C  SPECIFIED  'GOTHIC  !  D  t  E  A  U  i  CHAPAfE  •  iN 
C  ALSO  ROTATE  THE  TEX'  STRING.  NO’E 
C  ONLY  TO  'SOFTWARE*  CHARACiPi  AND  TATr:  SH.'t.' 
C  IS  REORIENTED. 


CALL  USE  :  •  'GOTHIC  > 

CALL  UPSET  (  'ROTATION- .DiG; 

CALL  UPRINT  <  10.  .SO.  .  'jE- AULT  TEXT  EC!  ' 

L 

C  CHANGE  SOFTWARE  CHARACTER  SHE  AND  ROTA’’  THE  E.VIf: 
C  TEXT  STRING  INSTEAD  OP  EACH  CHARACTER. 

C 

XSIZE  =  2. 

YSIZE  -  3. 

CALL  UPSET  ‘'HORIZONTAL  CHARACTER  WIDTH'-"  ID; 
CALL  UPSET  '.'VERTICAL  CHARACTER  JC  I  !■  - 1  ‘  :  'SI  Z  : 

C 

C  DETERMINE  THE  NUMBER  OF  CHARACTERS 

r 

CALL  UCOUNT  ! OU TF  T . COUNT  ) 

I CNT  COUNT 
r 

C  USE  FORTRAN  'ENCODE*  TO  BUILD  A  FORMAT 
C 

11  =  ICNT/10 

12  -  ICNT  -  11*10 

ENCODE  (FORMT.lOO)  ' ( ' *  1 1 » 1 2 » ' A1 ) ' 

100  FORMAT ( A 1 . 1 1 > II -A3) 

C 

C  USE  FORTRAN  'DECODE'  TO  SEPARATE  CHARACTERS 
r 

DECODE  (OUTPT.FORMT)  ( OUT ( I ) . I ~1 . ICNT I 
r 

C  OUTPUT  TEXT  STRING 
C 

CDEG  =  3.1116/180. 

X  -  XSIZE  *  COS  ( D£G*CDEG ) 

Y  -  XSIZE  *  SIN  ( DEGPCDEG ) 

XX  =  25. 

YY  -  25. 

DO  300  I  -  1.  ICNT 
CALL  UMOVE  (XX. YY) 

CALL  UAOUT  (OUT(I)) 
xx  =  yx  t  X 
YY  -  YY  +  Y 
300  CONTINUE 
C 

C  WRAP  UP 
C 


CALL  UEND 

STOP 

END 
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EXAMPLE  5.1 


C 

C  SAMPLE  PROGRAM  WHICH  ILLUSTRATES  GRAPHICS  INPUT 
C  THROUGH  ‘UGRIN ' .  THREE  TYPES  OF  CASES  ARE 
C  HANDLED:  SOLID  ‘S'*  INVISIBLE  ‘I*  AND  DASHED 
C  ‘D*  LINES.  THE  DESIRED  OPTION  FOR  THE  LINE  IS 
C  ENTERED  AS  A  SINGLE  CHARACTER  WHEN  THE  CURSORS 
C  HAVE  BEEN  POSITIONED.  THIS  PROGRAM  WAS  WRITTEN 
C  FOR  A  TEKTRONIX  TERMINAL  AND  IT  MAY  BE 
C  NECESSARY  TO  PUSH  THE  RETURN  KEY  AFTER  THE 
C  SINGLE  CHARACTER  IS  ENTERED.  DEFAULT  VALUES 
C  OF  WINDOW*  DEVICE  AREA  AND  DASH  SPECIFICATION  ARE  USED. 
C  AN  *E '  WILL  TERMINATE  THE  PROGRAM, 

C 

C 

CHARACTER  CHAR  *  1 

INITIALIZE  GCS  AND  OUTLINE  THE  DEFAULT  DEVICE  AREA. 

CALL  USTART 
CALL  UOUTLN 

ENABLE  THE  CURSORS*  POSITION  THEM  WHERE  DESIRED 
AND  ENTER  A  SINGLE  CHARACTER.  THE  <X,Y)  LOCATION 
AND  THE  SINGLE  CHARACTER  ENTERED  WILL  EE  RETURNED 
TO  THE  PROGRAM. 

1  CALL  UGRIN  <X*Y*CHAR) 


CHECK  IF  THE  SINGLE  CHARACTER  IS  AN  'S',  *1*  OR  *D*. 
PERFORM  THAT  GRAPHICS  FUNCTION  IF  YES.  IF  AN  •£•  IS 
ENTERED,  STOP  THE  PROGRAM. 


IF  (CHAR  . EG. 
IF  (CHAR  .EG. 
IF  (CHAR  .EG. 
IF  (CHAR  .EG. 
GO  TO  1 
2  CONTINUE 


•S')  CALL  UPEN1  (XrY  r 'LINE' ) 
•I')  CALL  UMOVE  (X,Y> 

*D‘)  CALL  UPEN1  (X*  Y*  'DASH1) 
■E’)  GO  TO  2 


WRAP  UP 


CALL  UEND 

STOP 

END 
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EXAMPLE  5,2 


C 

C  SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  USE  OF  'UINPUT*  TO 
C  ACCEPT  ALPHANUMERIC  INPUT  FROM  A  USER »  EDIT  IT  INTO 
C  THE  PROPER  FORMAT.  STORE  IT  IN  A  DATA  ARRAY  AND  PRINT 
C  THE  DATA  AT  A  DIFFERENT  LOCATION  ON  THE  DISPLAY. 

C 

C  DEFINE  AND  INITIALIZE  SOME  DATA  ARRAYS 
C 

CHARACTER  OPTION*12<4> 

DIMENSION  COUNT  ( 4 ) » DATA (6 ) » IN'^Xt  4 ) 

COUNT  < 1 ) =5, 

COUNT ( 2 ) =1 , 

COUNT (3>  =  1 , 

COUNT (4)  =  1 , 

INDEX ( 1 ) =1 
INDEX(2)=3 
INDEX(3)-"4 
INDEX ( 4 )  -  5 
OPTION( 1 )  =  *  TEXT ’ 

0PTI0N(2)^*REALNUMB£R' 

OPTION< 3)=' INTEGER' 

OPTION ( 4 )= 'XYCOORDINATE ' 

X  =  5. 

Y  =  90. 

C 

C  INITIALIZE  GCS.  SET  CHARACTER  SIZE  TO  EXTRALARGE  AND 
C  OUTLINE  THE  DEFAULT  'UDAREA'. 

C 

CALL  USTART 

CALL  USET  ('EXTRALARGE  CHARACTERS') 

CALL  UOUTLN 
C 

C  DEFINE  A  LOOP  TO  ILLUSTRATE  THE  FOUR  INPUT  AND 
C  OUTPUT  OPTIONS. 

C 

DO  1  I  =  1.  4 
C 

C  POSITION  BEAM/PEN  TO  INITIAL  LOCATION 
C 

CALL  UMOVE  <X,Y) 

C 

C  ALERT  THE  USER  THAT  INPUT  IS  DESIRED.  THEN  ACCEPT  DATA 
C 

CALL  UPRNT1  CENTER:  X'.'TEXT') 

CALL  UINPUT  (DATA<INDEX(I)),COUNT<I),FLAG.OP:I0N(I>) 

C 

C  IF  'TEXT*  OPTION.  INSERT  TERMINATOR  CHARACTER  AT  END 
C  OF  INPUTTED  TEXT  STRING. 

C 

IF  (I.EQ.l)  CALL  UAPEND  (COUNT ( 1 ). DATA ( INDEX ( 1 >). DATA ( INDEX ( 1 )) ) 
C 

C  SET  THE  CORRECT  OPTION  TO  OUTPUT  THE  DATA  THE  USER 
C  HAS  JUST  ENTERED  AND  PRINT  THE  DATA. 

C 

CALL  USET  ( OPT  ION ( I ) ) 

CALL  UPRINT  ( X . 10 . . DATA( INDEX ( I ) ) ) 

C 

C  UPDATE  COORDINATE  LOCATIONS  FOR  NEXT  INPUT  PROMPT . 

C 

X  =  X  +  22.5 

Y  =  Y  -  20. 

1  CONTINUE 

C 

C  WRAP  UP 
C 


CALL  UEND 

STOP 

END 
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EXAMPLE  5.3 


C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 


SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  MENU1NG .  THE  CHARACTER 
ARRAY  ‘OPTION’  CONTAINS  THE  LABELS  TO  BE  PRINTED  UNDER 
EACH  OF  THE  MENU  SELECTION  BOXES.  THE  NUMBER  OF  THE 
BOX  WHICH  WAS  SELECTED  BY  THE  USER  POSITIONING  THE 
CROSSHAIRS  AND  ENTERING  A  CHARACTER  IS  RETURNED  IN  THE 
PARAMETER  ‘CHOICE’.  THIS  WAS  WRITTEN  FOR  A  TEKTRONIX 
TERMINAL.  ’THE  DEFAULT  VALUES  OF  WINDOW  AND  DEVICE  AREA 
ARE  USED. 

INITIALIZE  LABELS  FOR  THE  MENU  CHOICES 


CHARACTER  OPTION  *  8(9) 

DATA  OPTION/’OPTION  1‘, ‘OPTION  2‘, ‘OPTION  3‘, ‘OPTION  4 
I  ‘OPTION  5’ , ‘OPTION  6‘, ‘OPTION  7*. ‘OPTION  S 

1  ‘OPTION  9 ‘ / 

INITIALIZE  GCS,  SET  CHARACTER  SIZE  TO  EXTRALARGE  AND 
OUTLINE  THE  DEFAULT  DEVICE  AREA  (UDAREA). 

CALL  USTART 

CALL  USET  (‘EXTRALARGE  CHARACTERS*) 

CALL  UOUTLN 

CALL  ‘UMENU*  TO  DRAW  A  MENUBOARD  OF  9  OPTIONS  AND  ACCEPT 
THE  USER'S  SELECTION.  PUSH  A  SINGLE  CHARACTER  AND  THE 
RETURN  KEY. 

CALL  UMENU  (9.0, OPTION. CHOICE) 

PRINT  WHAT  MENU  BOX  SELECTED 

CALL  UPRINT  ( 25 . , 25 . , *  THE  MENU  BOX  SELECTED  WAS  \‘) 
CALL  UPRNT1  ( CHOICE , ‘ INTEGER  1  ) 

CALL  ‘UMENU*  AGAIN,  BUT  USE  A  MINUS  (-)  SIGN  TD  SPECIFY 
THAT  THE  MENUBOARD  IS  NOT  TO  BE  REDRAWN.  ENTER  ANOTHER 
SINGLE  CHARACTER  AND  THE  RETURN  KEY. 

CALL  UMENU  (-9.0, OPTION, CHOICE) 

PRINT  WHAT  MENU  BOX  SELECTED 

CALL  UPRINT  (25. ,50 . , ‘ THE  MENU  BOX  SELECTED  WAS  \’> 
CALL  UPRNT1  (CHOICE, ‘ INTEGER’ ) 

WRAP  UP 


CALL  UEND 

STOP 

END 
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l»J 

OPTION  9 

OPTION  8 

□ 

OPTION  7 

OPTION  6 

E 

OPTION  5 

□ 

OPTION  4 
3_ 

OPTION  3 

a 

OPTION  2 

□ 

OPTION  1 


THE  MENU  BOX  SELECTED  UPS  8 


THE  MENU  BOX  SELECTED  UPS  7 


Figure  43.  Example  5.3 
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EXAMPLE  6,1 


PROBLEM  SOLUTION  I 
CALL  USTART 

CALL  UPSET ( 'SPEED* » 120. ) 

CALL  USTART 
CALL  AREA1 
CALL  SQUARE 
CALL  AREA2 
CALL  TRIAN 
CALL  COMMND 
CALL  UEND 
STOP 
END 

SUBROUTINE  AREA1 

CALL  UDAREA< 0 . » 7, r  0 . *  7. ) 

CALL  UOUTLN 
CALL  UEND 
STOP 
END 

SUBROUTINE  AREA2 

CALL  UDAREA (7 . 3 t 14.3*0. >7.) 

CALL  UOUTLN 

CALL  UEND 

STOP 

END 

SUBROUTINE  SQUARE 
CALL  UM0VE<20. »20. ) 

CALL  UPED(80, »20. ) 

CALL  UPEN(80. »80. ) 

CALL  UPEN(20. »80. ) 

CALL  UPEN(20. »20. ) 

CALL  UPRINT (5. >5. » ' SQUARE V ) 

CALL  UEND 

STOP 

END 

SUBROUTINE  TRIAN 
CALL  UM0VE(20.r20.) 

CALL  UPEN(80. »20. ) 

CALL  UPEN(50. »80 . ) 

CALL  UPEN(20.»20. ) 

CALL  UPRINT (5. »5. r ‘TRIANGLEN 1 ) 

CALL  UEND 

STOP 

END 

SUBROUTINE  COMMND 
CHARACTER  CHAR*1 
100  CALL  UAIN(CHAR) 

CALL  UERASE 

IF(CHAR.EQ. *B* )  GO  TO  200 
IF (CHAR.EQ. ’S* )  GO  TO  300 
IF(CHAR.EQ, 'T' )  GO  TO  400 
IF(CHAR.EQ.'R' )  GO  TO  500 
CALL  ERROR 
GO  TO  100 
200  CALL  AREA1 
CALL  SQUARE 
CALL  AREA2 
CALL  TRIAN 
GO  TO  100 
300  CALL  AREA 
CALL  SQUARE 
GO  TO  100 
400  CALL  AREA 
CALL  TRIAN 
GO  TO  100 
CALL  UEND 
500  STOP 
END 
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EXAMPLE  6.1 


(continued) 


SUBROUTINE  ERROR 
CALL  UHOME 
CALL  UALPHA 

PRINT » *B  -  BOTH  FIGURES* 
PRINTr'S  -  SQUARE* 

PRINT t *T  -  TRIANGLE* 

PRINT t *R  -  RETURN* 

CALL  UEND 

STOP 

END 

SUBROUTINE  AREA 

CALL  UDAREA<0.»10.»0.»10, 

CALL  UOUTLN 

CALL  UEND 

STOP 

END 
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EXAMPLE  7.1 


C 

C  SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  "JCRCLE*. 

C  DEFAULT  WINDOW  AND  DEVICE  AREA  ARE  USED.  NOTE 
C  THE  EFFECT  OF  •CLIPPING'  DUE  TO  THE  VIRTUAL 
C  WINDOW'S  RESTRICTING  OF  ALL  GRAPHICAL 
C  INFORMATION  TO  RESIDE  WITHIN  THE  REGION  DEFINED 
C  BY  100.0  BY  100.0  SQUARE. 

C 

C  INITIALIZE  GCS  AND  OUTLINE  THE  DEFAULT  DEVICE  ARF A . 

C 

CALL  USTART 
CALL  UOUTLN 

DRAW  A  SERIES  OF  CIRCLES  WITH  RADIUS  OF  50. 

CALL  UCRCLE  (0. *0.  *50. ) 

CALL  UCRCLE  (50. ,0. *50. ) 

CALL  UCRCLE  ( 100 . *  0 . *  50 . ) 

CALL  UCRCLE  < 1 00 , , 50 . *  50  .  ) 

CALL  UCRCLE  (  100. , 100. *50  .  ) 

CALL  UCRCLE  ( 50 . *  100 . *  50 , ) 

CALL  UCRCLE  (0 . *  1 00 . * 50 .  ) 

CALL  UCRCLE  (0. *50. .50.  ) 

DRAW  A  CIRCLE  OF  RADIUS  20.7  WITH  A  CENTER  AT  (50. *50. 

CALL  UCRCLE  ( 50. , 50 . . 20 . 7 ) 

WRAP  UP 

CALL  UEND 
STOP 
END 
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EXAMPLE  7.2 


C 

C  SAMPLE  PROGRAM  USED  TO  DEMONSTRATE  HOW  'UARC' 

C  DRAWS  AN  ARC  CENTERED  AT  (40,. 20.)  AND  OF 
C  RADIUS  30.  THE  ARC  WILL  BEGIN  AT  (40..50.)  AND 
C  TERMINATE  AT  (10. *20.). 

C 

C  INITIALIZE  GCS *  SET  CHARACTER  SIZE  TO  EXTRALARGE 
C  AND  OUTLINE  THE  DEFAULT  'UDAREA'. 

C 

CALL  USTART 

CALL  USET  ( 'EXTRALARGE  CHARACTERS') 

CALL  UOUTLN 

MOVE  TO  WHERE  THE  ARC  IS  TO  BEGIN  AND  LABEL 

CALL  UPEN1  (40.0.50.0* 'NCOORDINATES') 

CALL  UMOVE  (40.0*50.0) 

CALL  ' UARC*  TO  GENERATE  THE  ARC  WITH  AN  ANGULAR 
SPAN  OF  90.0  DEGREES. 

CALL  UARC  (40.0*20.0*90.0) 

DETERMINE  WHERE  'UARC'  COMPLETED  THE  ARC  AND  PRINT 
THE  COORDINATES  OF  THIS  LOCATION.  ALSO  PRINT  THE 
COORDINATES  OF  THE  CENTER  OF  THE  ARC. 

CALL  UWHERE  <X*Y) 

CALL  UPEN1  ( X  *  Y , * NCOORDINATES * ) 

CALL  UPEN1  (40.0*20.0* 1 NCOORDINATES  * ) 

WRAP  UP 

CALL  UEND 
STOP 
END 
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EXAMPLE  7.3 


SAMPLE  PROGRAM  USED  TO  DEMONSTRATE  USE  OF  'UPLYGN' . 
POLYGONS  OF  FROM  2  TO  ?  SIDES  WILL  BE  DRAWN  WITHIN 
THEIR  OWN  WINDOW*  WHICH  IS  MAPPED  TO  DIFFERENT 
PORTIONS  OF  THE  SCREEN.  THIS  PROGRAM  WAS  WRITTEN 
FOR  A  TEKTRONIX  4014/4015  TERMINAL. 

INITIALIZE  VARIABLES 

SIDES  =  1.0 
YO  =  9.4 

INITIALIZE  GCS.  SET  CHARACTER  SIZE  TO  EXTRALARGE 
AND  CHANGE  TEXT  STRING  TERMINATOR  TO  A  SEMICOLON  <?). 
SET  VIRTUAL  WINDOW  TO  -1.1  TO  1.1  FOR  X  AND  Y.  THIS 
SMALL  WINDOW  WILL  BE  DRAWN  8  TIMES*  2  ROWS  OF  FOUR* 
EACH  TIME  CONTAINING  A  DIFFERENT  POLYGON  WITH  THE 
DEVICE  AREA  OUTLINED. 

CALL  USTART 

CALL  USET  ( 'EXTRALARGE  CHARACTERS' ) 

CALL  UPSET  < 'TERMINATOR  CHARACTER '*' ? ' ) 

CALL  UWINDO  ( -1 . 1 » 1 . 1 . -1 . 1 . 1 . 1 ) 

THE  FOLLOWING  DO  LOOPS  SET  UP  THE  2  ROWS  OF  4  DISPLAY 

DO  1  I  =  1*  2 
XO  =  -2.6 
YO  =  YO  -  3.6 
DO  1  J  =  1*  4 
XO  =  XO  +  3.3 

INITIALIZE  NUMBER  OF  SIDES?  1  IS  ADDED  BEFORE  EACH 
EXECUTION  SO  POLYGON  SIDES  START  AT  2  AND  GO  TO  9 
IN  8  STEPS. 

SIDES  =  SIDES  +  1.0 

SET  UP  THE  DEVICE  AREA  AND  OUTLINE  IT.  AS  XO  AND  YO 
CHANGE.  IT  WILL  MOVE  TO  8  DIFFERENT  LOCATIONS. 

CALL  UDAREA  (XO. (X0+3.0) *Y0» ( Y0+3.O) > 

CALL  UOUTLN 

DRAW  THE  POLYGON 

CALL  UPLYGN  (0. 0, 0. 0. SIDES. 1.0) 

LABEL  THE  POLYGON 

CALL  USET  ('TEXT') 

CALL  UPRINT  ( -1 .0.-1 . 05. 'SIDES! ? ' ) 

CALL  USET  ('INTEGER') 

CALL  UPRINT  ( 0. 9 . -1 .05 . SIDES ) 

1  CONTINUE 


WRAP  UP 


CALL  UEND 

STOP 

END 
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EXAMPLE  7.4 


C  SAMPLE  PROGRAM  USED  TO  DEMONSTRATE  USE  OF  ’UPLYGN’. 

C  A  TRIANGLE  WILL  BE  DRAWN  USING  1  OF  12  POSIBLE  PEN  OPTIONS. 
C  THIS  PROGRAM  WAS  WRITTEN  FOR  A  TEKTRONIX  4014/4015. 

C 

C  INITIALIZE  CHARACTER  ARRAY  WITH  OPTIONS  TO  BE  USED  BY 
C  ’USET*  AND  ’yPRINT' ,  NOTE  THAT  A  BACKSLASH  (\>  IS  USED 
C  AS  THE  LAST  CHARACTER.  'USET*  CHECKS  ONLY  THE  FIRST  4 
C  CHARACTERS r  BUT  ’UPRINT’  MUST  HAVE  THE  BACKSLASH. 

C 

CHARACTER  0PTI0N*16< 12) 

BATA  QPTION/’LNULLV  f ’LARROWV . *LBACKARR0W\ * t 
l  ’LDOUBLEARROWX* » ’DNULLV  * ’DARRQW\*  t ’ DBACKARROWX ’ i ’DDOUBl 
t  "TNULLV  f  'TARROWX* » 'TBACKARROWV  .  'TDOUBLEARROWW 
INDEX  =  0 
YO  =  10.9 

INITIALIZE  GCSr  SET  CHARACTER  SIZE  TO  EXTRALARGE  AND 
SET  NEW  TICMARK  INTERVAL.  DEFINE  NEW  VIRTUAL  WINDOW. 

CALL  USTART 

CALL  USET  (’EXTRALARGE  CHARACTERS’) 

CALL  UPSET  ( ’TIC INTERVAL’ »0.25) 

CALL  UWINDO  < -1 . 1 » 1 . 1 . -1 . 1 1 1 . 1 ) 

DRAW  FIGURES  IN  3  ROWS  OF  4. 

DO  1  I  -  If  3 
XO  =  -2.6 
YO  »  YO  -  3.4 
DO  1  J  =  1*  4 
XO  =  XO  +  3.3 
INDEX  =  INDEX  +  1 

DEFINE  NEW  DEVICE  AREA  AND  OUTLINE  IT. 

CALL  UDAREA  (X0» (X0+3.0) » YOi (Y0+3.0) ) 

CALL  UOUTLN 

DRAW  THE  POLYGON  USING  1  OF  THE  12  POSSIBLE  12  OPTIONS 
WITHIN  THE  DEFINED  ’UDAREA’. 

CALL  USET  (OPTION( INDEX)) 

CALL  UPLYGN  (0 . Of  0 . Of  3 . Of  1 . 0 ) 

LABEL  THE  POLYGON 


CALL  UPRINT  ( -1 . Of -1 . 0 f OPT ION( INDEX ) ) 
1  CONTINUE 


WRAP  UP 

CALL  UEND 

STOP 

END 
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EXAMPLE  7.5 


SUBROUTINE  USED  TO  DEMONSTRATE  'UF'LYGN* .  A  TRIANGLE 
WILL  BE  DRAWN  IN  RELATIVE  MODE  AND  ROTATED  ABOUT  ITS 
CENTER  IN  TEN  DEGREE  INCREMENTS.  THIS  PROGRAM  WAS 
WRITTEN  FOR  A  TEKTRONIX  4014/4015  TERMINAL. 

INITIALIZE  VARIABLES. 

DEGREE  -  0.0 
Y0  -=  10.9 

INITIALIZE  GCS »  SET  CHARACTER  SIZE  TO  EXTRALARGE  AND 
DEFINE  A  NEW  WINDOW.  DEFINE  TWO  ‘UP EN*  OPTIONS. 

CALL  USTART 

CALL  USET  < 'EXTRALARGE  CHARACTERS') 

CALL  UUINDO  ( -1 . 1  r 1 . 1 , -1 . 1 , 1 . 1 > 

CALL  USET  < 'INTEGER') 

CALL  USET  (  VARROU*  ) 

DRAW  FIGURE  IN  3  ROWS  OF  4. 

DO  1  I  -  1»  3 

XO  =  -2.3 

YO-YO  -  3.4 

DO  1  J  -  1»  4 

XO  -  XO  +  3.3 

DEGREE  =  DEGREE  +  10.0 

DEFINE  NEW  DEVICE  AREA  IN  WHICH  POLYGON  WILL  BF  DRAWN. 
OUTLINE  THE  AREA. 

CALL  UDAREA  (XO, (X0+3.0) » YO, ( YO+3.0) ) 

CALL  UOUTLN 

DRAW  THE  POLYGON  WITHIN  THE  'UDAREA',  ROTATING  IT  IN 
RELATIVE  MODE  BY  TEN  DEGREE  INCREMENTS. 

CALL  UMOVE  (0.0, 0.0) 

CALL  USET  ('RELATIVE  PLOTTING  MODE') 

CALL  UPSET  ('ROTATE*, DEGREE) 

CALL  UPLYGN  ( 0 . 0 , 0.0 , 3 . 0, 1 . 0 ) 

RESET  TO  ABSOLUTE  MODE  AND  LABEL  THE  POLYGON. 

CALL  USET  ('ABSOLUTE  PLOTTING  MODE') 

CALL  UPRINT  (-1 .0,-1 .0, DEGREE) 

1  CONTINUE 

WRAP  UP 

CALL  UEND 

STOP 

END 
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EXAMPLE  7.6 


SAMPLE  PROGRAM  USED  TO  DEMONSTRATE  'URECT*.  A 
RECTANGLE  HILL  BE  DRAWN  IN  RELATIVE  MODE  AND 
ROTATED  IN  30  DEGREE  INCREMENTS. 

INITALIZE  VARIABLES 

DEGREE  =0.0 
Y0  =  10.9 

INITIALIZE  GCS ,  SET  THE  CHARACTER  SIZE  TO  EXTRALARGE  AND 
DEFINE  A  NEW  WINDOW.  SET  'UPRINT*  OPTION  TO  INTEGER. 

CALL  USTART 

CALL  USET  ('EXTRALARGE  CHARACTERS’) 

CALL  UWINDO  ( -1 . 1 , 1 . 1 , -1 . 1 » 1 . 1 ) 

CALL  USET  ('INTEGER') 

DRAW  THE  RECTANGLE  IN  3  ROUS  OF  4  IN  30  DEGREE  INCREMENTS. 

DO  1  I  =  1»  3 

XO  =  -2.6 

YO  =  YO  -  3.4 

DO  1  J  =  1»  4 

XO  =  XO  +  3.3 

DEGREE  =  DEGREE  +  30.0 

DEFINE  DEVICE  AREA  WITHIN  WHICH  RECTANGLE  WILL  BE  DRAWN. 
OUTLINE  THE  AREA. 

CALL  UDAREA  (XO, (XO+3.0) ,Y0, < Y0+3.0) ) 

CALL  UOUTLN 

DRAW  THE  RECTANGLE  WITHIN  THE  'UDAREA',  ROTATING  IT  If 
RELATIVE  MODE  BY  30  DEGREE  INCREMENTS. 

CALL  UMOVE  (0.0, 0.0) 

CALL  USET  ('RELATIVE  PLOTTING  MODE') 

CALL  UPSET  ('ROTATE', DEGREE) 

CALL  URECT  (0.8, 0.6) 

RESET  TO  ABSOLUTE  MODE  AND  LABEL  THE  RECTANGLE. 

CALL  USET  ('ABSOLUTE  PLOTTING  MODE') 

CALL  UPRINT  ( -1 .0, -1 .0, DEGREE ) 

1  CONTINUE 

WRAP  UP 


CALL  UEND 
STOP 


END 
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EXAMPLE  7.7 


C 

C  SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  APPLICATION  OF  ■UCONIC* 

C  T0  GENERATE  ELLIPSES  AND  HYPERBOLAE.  FOUR  FIGURES 
C  WILL  BE  DRAWN!  2  ELLIPSES  ORIENTED  ALONG  THE  X  AND  Y  AXES  i 
C  AND  2  HYPERBOLAE  ORIENTED  ALONG  THE  X  AND  Y  AXES.  EACH 
C  ONE  OF  THE  FIGURES  IS  DRAWN  WITHIN  ITS  OWN  REGION  OF  THE 
C  SCREEN  BY  REDEFINING  THE  DEVICE  AREA  PRIOR  TO  DRAWING  THE 
C  FIGURE.  THIS  PROGRAM  WAS  WRITTEN  FOR  A  TEKTRONIX  4014/4015. 

C 

C  SET  UP  DATA  ARRAYS  FOR  UCONIC 
C 

DIMENSION  X(4)iY(4).P<4)»E(4) 

C 

INDEX=0 
Y0=10 . 9 
X(l>=10. 

X(2)=50. 

X<3>=67. 

X  ( 4 ) =50 . 

Y  <  1 )  --^50 . 

Y ( 2  >  =  10 . 

Y  C  3 ) =50 . 

Y (4)=67 . 

P ( 1 >=9 .5 
P(2)=-9.5 
P ( 3) =9  . 

P ( 4 ) =-9 . 

E  ( 1 )  = .  9 
E ( 2 ) =-  .  9 
EC  3 )  =  1 . 44 
E ( 4 ) =-l . 44 
C 

C  INITIALIZE  GCS 
C 

CALL  USTART 
C 

C  LOOP  TO  DEFINE  FOUR  DEVICE  AREAS  AND  OUTLINE  EACH  ONE. 

C 

DO  1  I  =  It  4 

IFCI.EO.l)  CALL  UDAREAC 1.9»6.?i5.7rl0.7) 

IFCI.EQ.2)  CALL  UDAREA ( 7 . 4 , 12 . 4 , 5 , 7 » 1 0 . 7 > 

IFCI.E0.3)  CALL  UDAREAC 1 .9» 6 . 9* . 2 » 5 . 2 ) 

IFCI.EQ.4)  CALL  UDAREA ( 7 . 4  *  12 . 4 , . 2  *  5 . 2 ) 

INDEX=INDEX+1 
CALL  UOUTLN 
C 

C  DRAW  THE  CONIC.  NOTE  THAT  THE  DEFAULT  WINDOW  IS  MAPPED 
C  TO  THE  CURRENT  DEVICE  AREA  SPECIFICATION. 

C 

CALL  UCONIC  ( X ( INDEX >  *  Y( INDEX ) r  PC  INDEX ) » E  C INDEX ) >0 . 0 » 360 . 0 ) 

1  CONTINUE 
C 

C  WRAP  UP 
C 

CALL  UEND 

STOP 

END 
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EXAMPLE  7.3 


C 

C  SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  APPLICATION  OF  'UCONIC' 

C  TO  GENERATE  PARABOLAE.  FOUR  FIGURES  WILL  BE  DRAWN:  2  WILL 
C  BE  ORIENTED  ALONG  THE  +  X  AND  +Y  AXES t  AND  2  WILL  BE  ORIENTED 
C  ALONG  THE  -X  AND  -V  AXES.  EACH  ONE  OF  THE  PARABOLAE  IS 
C  DRAWN  WITHIN  ITS  OWN  REGION  OF  THE  SCREEN  BY  REDEFINING  THE 
C  DEVICE  AREA  PRIOR  TO  DRAWING  THE  FIGURE. 

C 

C  SET  UP  ARRAYS  FOR  UCONIC 
C 

DIMENSION  X(4)»Y(4)»P(4)»E<4) 

INDEX=0 
Y0=10.9 
X ( 1 >  =  1 0 . 

X ( 2 ) =50  . 

X ( 3 ) =90 . 

X ( 4 ) =50 . 

Y( 1 ) =50 . 

Y (2)=10. 

Y ( 3 ) r50 . 

Y ( 4 ) =90 . 

P  ( 1  > r  1 3 . 

P(2)=— 13. 

P<3)=-13. 

F ( 4 )  =  13 . 

E  ( 1 )  =  1 . 

E(2)=-l. 

E(3)  =  l . 

E(4)--l . 


INITIALIZE  GCS 
CALL  USTART 

LOOP  TO  DEFINE  FOUR  DEVICE  AREA  AND  OUTLINE  EACH  ONE. 

DO  1  I  =  1»  4 

IF  (I.EQ.l)  CALL  UDAREA  ( 1 .9,6. 9, 5. 7, 10.7 
IF  (I.EQ.2)  CALL  UDAREA  <7.4,12.4,5.7.10.7; 

IF  (I.EQ.3)  CALL  UDAREA  <  1 . 9 , 6 . 9 . . 2 , 5 . 2  ' 

IF  (I.E0.4)  CALL  UDAREA  ( 7 . 4 , 1 2 . 4 , . 2 , 5 . 2 ) 

INDEX  =  INDEX  F  1 
CALL  UOUTLN 

DRAW  THE  CONIC.  NOTE  THAT  THE  DEFAULT  WINDOW  IS  MAF°E 
TO  THE  CURRENT  DEVICE  AREA  SPECIFICATION. 

CALL  ,'ONIC  < X< INDEX ) * Y (INDEX) *P < INDEX » , E < INDEX ) ,0.0,360.0 
1  CONTIi,  S 

WRAP  UP 

CALL  UEND 

STOP 

END 
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EXAMPLE  7.9 


C 

C  SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  APPLICATION  OF  'ULINFT*  TO 
C  CALCULATE  THE  SLOPE  (S)  AND  Y-INTERCEPT  (YI)  OF  A  LINE  WHICH 
C  REPRESENTS  THE  'BEST'  LINEAR  FIT  TO  A  SERIES  OF  DATA  POINTS. 

C  SET  UP  DATA  ARRAYS  FOR  ULINFT 
C 

DIMENSION  X<  20  > » Y( 20) 

DATA  X/2. ,5. ,10. ,15. ,20. *25. ,30. ,35. ,40. ,45. >50. ,55. ,60. >65, ,70. ,75 
t  SO. *85. >90. ,95./ 

DATA  Y/2. ,7. ,10. ,14. ,25. ,24. ,31. ,34. *40. ,46. >50. ,59. >58. ,64. >70. ,76 
1  82. >86. t 91 . >97./ 

INITIALIZE  GCS  AND  OUTLINE  THE  DEFAULT  DEVICE  AREA. 

PLOT  THE  DATA  POINTS,  CENTERED,  WITH  PLUS  <  +  >  SIGNS. 

NOTE  THAT  THE  DATA  LIES  WITHIN  THE  DEFAULT  WINDOW  BOUNDARIES. 

CALL  USTART 
CALL  UOUTLN 

CALL  USET  CACENTER  CHARACTERS*) 

CALL  USET  CMC) 

CALL  ULINE  <X,Y,20.) 

CALL  * ULINFT*  TO  CALCULATE  THE  LINE'S  SLOPE  AND  Y-INTFRCEPT . 

CALL  ULINFT  <X»Y,20. ,S,YI> 

RESET  THE  PEN  MODE  TO  DRAW  SOLID  LINES,  MOVE  TO  THE 
Y-INTERCEPT  AND  GRAPH  THE  LINE  USING  YO=S*X*YI. 

CALL  USET  CLINE*) 

XMIN  =  0.0 
XMAX  =  100.0 
CALL  UMOVE  (XMIN,YI) 

YO  =  YI  +  S  *  XMAX 
CALL  UPEN  (XMAX, YO) 

WRAP  UP 

CALL  UEND 
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EXAMPLE  7.10 
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EXAMPLE  8.1 


SAMPLE  PROGRAM  TO  ILLUSTRATE  OPTIONS  AVAILABLE 
WITH  *UAXIS*. 

INITIALIZE  GCS  AND  6ENERATE  AXES 
CALL  USTART 

CALL  USET  ( 'EXTRALARGE  CHARACTERS*) 

CALL  USET  ( 'XBOTHLABELS* ) 

CALL  UPSET  ( 'XLABEL* » *EDGEAXIS\* ) 

CALL  UAXIS  <-5.32»4.8?»-43.4i 15A.459) 

WRAP  UP 


CALL  UEND 

STOP 

END 
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EXAMPLE  8.2 


SAMPLE  PROGRAM  TO  ILLUSTRATE  OPTIONS  AVAILABLE 
WITH  'UAXIS* . 

INITIALIZE  6CS  AND  GENERATE  AXES 


CALL  USTART 

CALL  USET  ( 'EXTRALARGE  CHARACTERS' > 
CALL  USET  CZEROAXES') 

CALL  USET  CXBOTHL  ABELS') 

CALL  UPSET  CXLABEL'f 'ZEROAXESN* ) 
CALL  UAXIS  <-*.»2.»-5.»4.) 


WRAP  UP 


CALL  UEND 

STOP 

END 
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Figure  59.  Example  8.2 
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EXAMPLE  8.3 


SAMPLE  PROGRAM  TO  ILLUSTRATE  OPTIONS  AVAILABLE 
WITH  ’UAXIS’ . 

INITIALIZE  GCS  AND  GENERATE  AXES 
CALL  USTART 

CALL  U SET  < "EXTRALARGE  CHARACTERS’) 

CALL  USET  CPENAXIS’) 

CALL  USET  < ’XBOTHLABELS* ) 

CALL  UPSET  ( *  XL ABEL* i *PENAXES\* ) 

CALL  UPEN  <-3.f2.) 

CALL  UAXIS  <-A.*2.»-5.r4.) 

WRAP  UP 


CALL  UEND 

STOP 

END 
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EXAMPLE  8.4 


SAMPLE  PROGRAM  TO  ILLUSTRATE  OPTIONS  AVAILABLE 
WITH  ‘UAXIS* . 

INITIALIZE  GCS  AND  GENERATE  AXES 
CALL  USTART 

CALL  USET  CEXTRALARGE  CHARACTERS’) 

CALL  UPSET  ( ’XLABEL  * » ’POLAR  GRID\’> 

CALL  USET  ( ’POLARAXES’ ) 

CALL  USET  < ’GRID' ) 

CALL  USET  ( ’XBOTHLABELS* ) 

CALL  UAXIS  (-6. f6. .0, »360. > 

WRAP  UP 


CALL  UEND 

STOP 

END 
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Figure  61 .  Example  8.4 
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EXAMPLE  8.5 


SAMPLE  PR06RAM  TO  ILLUSTRATE  THE  USE  OF  'UPLOT1. 

TWO  CURVES  WILL  BE  PLOTTED  OH  A  SINGLE  PAIR  OF  AXES. 

THIS  PROGRAM  WAS  WRITTEN  FOR  A  TEKTRONIX  4014/4015. 

SET  UP  DATA  ARRAYS  FOR  'UPLOT1.  NOTE  THE  SEMICOLON  <}) 
AT  THE  END  OF  THE  LABELS. 

DIMENSION  X(12)»Y(12) >P ARRAY (2) 

CHARACTER  0PTARY*4<2) 

CHARACTER  XLABEL*40) YLABEL *40 

DATA  X/l . > 2. »3. *4 . *5. » 1 . »2. *2.5)3. >3 <5 >6 . »7./ 

DATA  Y/l,»4.»9.»16.*25.».5»l. *1.2* 1.5)1. 7)3. >3.5/ 
DATA  PARRAY/5 .  *  7. / 

DATA  XLABEL/'THIS  IS  THE  X  LABEL}1/ 

DATA  YLABEL/*THIS  IS  THE  Y  LABEL}1/ 

DATA  OPTARY/’LINE* * "DASH1/ 

INITIALIZE  GCS>  SET  THE  CHARACTER  SIZE  TO  EXTRALARGE  AND 
CHANGE  THE  TEXT  STRING  TERMINATOR  TO  A  SEMICOLON  <}>. 
INITIALIZE  AXES  OPTIONS.  REMEMBER  THAT  'UPLOT1  CALLS 
•UAXIS1. 

CALL  USTART 

CALL  USET  (’EXTRALARGE  CHARACTERS1) 

CALL  UPSET  < 'TERMINATOR  CHARACTER1)1}*) 

CALL  UPSET  ( "XLABEL" .XLABEL) 

CALL  UPSET  ( "YLABEL1 f YLABEL) 

CALL  USET  CGRIDAXES1) 

CALL  USET  CXBOTHLABEL1  > 

CALL  USET  CYBOTHLABEL1) 

X-AXIS  WILL  BE  LINEAR  (DEFAULT)  AND  r-AXIS  WILL  BE 
LOGARITHMIC. 

CALL  USET  ( "LOGYAXIS1 ) 

DEFINE  NEW  DEVICE  AREA  AND  OUTLINE  IT. 

CALL  UDAREA  <4. *14. *0. *10. > 

CALL  UOUTLN 

PLOT  THE  TWO  CURVES 

CALL  UPLOT  (X*Y»2.>PARRAY*0PTARY) 

WRAP  UP 

CALL  UEND 

STOP 

END 
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EXAMPLE  8.6 


THIS  PROGRAM  ILLUSTRATES  THE  USE  OF  'UPL0T1'  TO  PLOT 
A  SINGLE  CURVE  THAT  REPRESENTS  A  4TH  ORDER  POLYNOMIAL  FIT. 
THIS  PROGRAM  HAS  WRITTEN  FOR  A  TEKTRONIX  4014/4015. 

SET  UP  DATA  ARRAYS  FOR  UPL0T1. 

DIMENSION  DB<61)>E2<61) 

CH^ACTER  XLABEL*40*YLABEL*40 

DATA  XLABEL/'STEADY-STATE  EXCITATION  VOLTAGE  (VOLTS)W' 
DATA  YLABEL/* EXCITATION  REFERENCED  TO  IV  <DB)W 

GENERATE  SOME  DATA  VALUES 

DO  1  I  =  It  61 
DB( I )  =  FLOAT ( 1-1 ) 

1  E2( I )  =  10.0**<DB(I>  /  20.0) 

INITIALIZE  GCSi  SET  CHARACTER  SIZE  TO  EXTRALARGE  AND 
INITIALIZE  'UAXIS*  OPTIONS. 

CALL  USTART 

CALL  USET  ( 'EXTRALARGE  CHARACTERS') 

CALL  UPSET  < 'XLABEL' rXLABEL ) 

CALL  UPSET  <* YLABEL' i YLABEL) 

CALL  USET  < 'GRIDAXES" ) 

CALL  USET  ( 'XBOTHLABEL ’ ) 

CALL  USET  CYBOTHLABEL') 

INITIALIZE  'UPL0T1 '  OPTIONS  FOR  A  POLYNOMIAL  FIT 

CALL  USET  CFITPOLYNOMIAL') 

CALL  UPSET  ('POLYNOMIAL  DEGREES 4.) 

DEFINE  A  NEW  DEVICE  AREA  AND  OUTLINE  IT 

CALL  UDAREA  ( 4. , 1 4 .3>0. f 10.9) 

CALL  UOUTLN 

PLOT  THE  CURVE.  NOTE  THAT  THE  Y-LABEL  IS  CLIPPED. 

CALL  UPL0T1  (E2»DB»61 .0) 

CONNECT  THE  ORIGINAL  DATA  POINTS  WITH  A  'HARDWARE*  GENERATED 
DOTTED  LINE. 

CALL  USET  ( 'DASHLINE' ) 

CALL  UPSET  ( 'SETDASH*  »9. ) 

CALL  ULINE  (E2»DB»61.) 

WRAP  UP 

CALL  UEND 

STOP 

END 
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Figure  63.  Example  8.6 
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EXAMPLE  8.7 


SAMPLE  PROGRAM  TO  ILLUSTRATE  APPLICATION  OF  “JHISTO1. 

ALLOCATE  VARIABLES  FOR  UHISTO 

DIMENSION  DATA(IOOO) 

DATA  XN  /1000./ 

BUILD  DATA  FROM  SINE  VALUES. 

DO  2  I  =  It  1000 
2  DATA(I)  =  SIN(FL0AT(I>/150. > 

INITIALIZE  GCS»  SET  CHARACTER  SIZE  TO  EXTRALARGE 
AND  CHANGE  TEXT  STRING  TERMINATOR  TO  A  SEMICOLON  If). 

CALL  USTART 

CALL  USET  (‘EXTRALARGE  CHARACTERS') 

CALL  UPSET  (‘TERMINATOR  CHARACTER *»•«•) 

INDICATE  THAT  BOTH  NUMERIC  AND  ALPHABETIC  LABELS  ARE 
DESIRED  FOR  THE  X-AXIS  AND  SET  ALPHABETIC  LABEL. 

CALL  USET  CXBOTHLABELS* ) 

CALL  UPSET  CXLABEL*. ‘DISTRIBUTION  OF  VALUES  OF  SINE*') 

CHANGE  DEVICE  UNITS  TO  PERCENTUNITS  AND  CHANGE 
DEVICE  AREA  TO  ENTIRE  SCREEN. 

CALL  USET  ( "FERCENTUNITS" ) 

CALL  UDAREA  < 0. » 100 . ,0 . *  100 . ) 

INDICATE  THAT  YOU  HILL  PROVIDE  YOUR  OWN  SCALE  AND 
SET  THE  LIMITS  WITH  ‘UHINDO*. 

CALL  USET  COUNSCALE’) 

CALL  UHINDO  < 0 . » 150. , -1 . » 1 . > 

PROCESS  THE  DATA  ARRAY  USING  20  CELLS. 

CALL  UHISTO  (DATA,XN»20. ) 

HRAP  UP 

CALL  UEND 

STOP 

END 
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EXAMPLE  8.8 


SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  'UBAR* . 

ALLOCATE  ARRAYS  FOR  UBAR 

DIMENSION  DATA(7) 

CHARACTER  LABELS*12<7) 

DATA  DATA/4 . » 30. >  48 . . 10 . » 2 . > 2 . *  4 . / 

DATA  LABELS/‘ALGOL\  1 1  'C0B0LX* .  'FORTRANX' » 'GMAPX* » *  JO'.'IALX* , 

1  'SIHSCKIPTX* » 'SNGBOLXV 

INITIALIZE  GCS>  SET  CHARACTER  SIZE  TO  EXTRALARGE  AND 
INDICATE  THAT  BOTH  X-AXIS  LABELS  ARE  TO  BE  USED. 

CALL  USTART 

CALL  USET  ( ’EXTRALARGE  CHARACTERS') 

CALL  USET  CXBOTHLABELS' ) 

CALL  UPSET  CXLABEL'. 'TYPICAL  LANGUAGE  UTILIZATION  AT  USMAX') 

GENERATE  THE  BARCHART  WITH  THE  SPECIFIED  DATA  VALUES 
AND  LABELS. 

CALL  UBAR  (BATA»7 . . LABELS. 12 . ) 

WRAP  UP 


CALL  UEND 

STOP 

END 
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TYPICAL  LANGUAGE  UTILIZATION  AT  USMA 

Fiqure  65.  Example  8.8 
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EXAMPLE  8.9 


SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  'UPIE*. 

IN  ADDITION  TO  GENERATING  A  PIECHART »  SOME 
ADDITIONAL  GRAPHIC  OUTPUT  IS  DONE  PY  'UPRNTl' 

ALLOCATE  ARRAYS  FOR  UPIE. 


DIMENSION 

CHARACTER 

DATA<1>=4. 

DATA(2)"30 

DATA(3) "48 

DATA(4)=,10 

DATA(5)=2. 

DATA( 6)-2 . 

DATA(?)“4. 

Y=100. 

LABELS* 1>" 

LABELS(2)= 

LABELS(3)= 

LABELS(4)- 

LABELS(5)" 

LABELS(A)" 

LABELS(7)= 


DATA(7) 

LABELS*12(7) 


'  ALGOLV 

'COBOL'.  * 

•FORTRAN'.* 

•GMAP'.' 

•JOVIAL'.' 

•SIMSCRIPT'.' 

'SNOBOLV 


INITIALIZE  GCS.  SET  CHARACTER  SIZE  TO  EXTRALARGE 
AND  INDICATE  THAT  ONLY  X-AXIS  ALPHABETIC  ARE  NEEDED. 

CALL  USTART 

CALL  USET  « 'EXTRALARGE') 

PAM  IICCT  (  •  YAI  PUfifiFTTP1  1 

CALL  UPSET  CXLABEL', 'TYPICAL  LANGUAGE  UTILIZATION  AT  USMA\* 

GENERATE  THE  PIECHART 

CALL  UPIE  (DATA. 7. .LABELS. 12.) 

SET  ADDRESSING  MODE  TO  'DEVICE/PERCENTUNITS*  AND 
OUTPUT  LABEL  INFORMATION.  NOTE  THAT  IN  'DEVICE'  MODE 
ALL  (X.Y)  COORDINATES  ARE  IN  PERCENTUNITS. 

CALL  USET  ('DEVICE') 

CALL  USET  ('PERCENTUNITS') 

CALL  UDAREA  (0. .100. .0. .100, ) 

DO  1  I  =  1,  7 

Y  =  Y  -  (100.  /  FLOAT* 7+1 ) ) 

CALL  UMOVE  (0.»Y) 

CALL  UPRNTl  <LABEL5( I ) » 'TEXT* ) 

CALL  UPRNTl  C  -  V.'TEXT') 

CALL  UPRNTl  (DATA( I ).' INTEGER' ) 

CALL  UPRNTl  ('%',' » 'TEXT' ) 

1  CONTINUE 


WRAP  UP 


CALL  UEND 

STOP 

END 
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:  PROBLEM  SOLUTION  II 

COMHON/PLT/  X(18),Y(18),PTS(3) »OPT (3) 
CHARACTER  FF2B21 

ENC0DE(FF2»77) ’GRAPHICS/LESSON/DATA I  * 

77  FORMAT( A21 ) 

CALL  ATTACH( 11 »FF2» 1 ,0, ISTAT » ) 

DO  100  1  =  1 »  18 

READ! Ilf  110)  X< I >  f  Y ( I ) 

110  FORMAT(U) 

100  CONTINUE 
CALL  INIT 
CALL  TPLOT 
CALL  CONTRL 
CALL  UEND 
STOP 
END 

SUBROUTINE  INIT 

COMHON/PLT/  X(lB)fY(18)fPTS<3)»0PT<3) 
CHARACTER  XLABELK10, YLABEL*10 
DATA  OPT/* LINE* f‘ DASH* ,  *N+  V 
DATA  PTS/5.,7.,6./ 

DATA  XLABEL/’X  VALUEWf YLABEL7* Y  VALUE 
CALL  USTART 

CALL  UPSET  <  *  XL ABEL*  f XL ABEL ) 

CALL  UPSETCYLABELSYLABEL) 

CALL  USETCGRIDAXES*) 

CALL  USET ( ‘XBOTHLABEL*  > 

CALL  USETCYBOTHLABEL* ) 

CALL  UEND 

STOP 

END 

SUBROUTINE  TPLOT 

COMHON/PLT/  X ( 1 8 ) f  Y (18 ) f PTS ( 3 ) i OPT <  3 ) 
CALL  UDAREACO.flO.fO.rlO.) 

CALL  UERASE 

CALL  UPL0T(X,Y,3.,PTS,GPT> 

CALL  UEND 

STOP 

END 

SUBROUTINE  CONTRL 
CHARACTER  CHARtl 
100  CALL  UAIN(CHAR) 

IF (CHAR. EQ. *T* )  GO  TO  200 
IF(CHAR.EQ.’W)  GO  TO  300 
IF(CHAR.EQ.*R*>  GO  TO  400 
CALL  FAULT 
GO  TO  100 

200  CALL  USET C AUTOSCALE *) 

CALL  TPLOT 
GO  TO  100 

300  CALL  UGR I N ( XL » YL . CHAR  > 

CALL  UGRIN(XUf YUfCHAR) 

CALL  UWINDO(XL.XUfYLfYU) 

CALL  USETCOHNSCALE’) 

CALL  TPLOT 
GO  TO  100 
CALL  UEND 
400  STOP 
END 

SUBROUTINE  FAULT 
CALL  UERASE 
CALL  UHOHE 
CALL  UALPHA 
PRINT ? *T  -  TOTAL’ 

PRINT, ’H  -  WINDOW* 

PRINT, ’R  -  RETURN* 

CALL  UEND 
STOP 
END 
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Figure  68.  Example  9.1  (continued) 
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e  9.1  (continued) 


EXAMPLE  10.1 


CALL  USTART 

CALL  USET < 'HQRKINGAXI 

CALL  UWINPO  (-10. .10. 

CALL  UOUTLN 

CALL  UMOVE  <0.»0.) 

CALL  UPEN  <2. ,0. ) 

CALL  UPEN  ( 0 .  f  2 . ) 

CALL  UPEN  (0.,0.) 


S*  > 

r “1 0 . f 


CALL  UCOSYS  <5 . » 4 . *  1 . » 1 . » 45 
CALL  UMOVE  (O.fO.) 

CALL  URECT  <3.f3.) 

CALL  UEND 

STOP 

END 


10.  ) 


.  ) 
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EXAMPLE  10.2 


CALL  USTART 

CALL  USET  (•WORKINGAXIS*) 

CALL  UWINDO  (-2. rS,  r-2. ,3. ) 

CALL  UOUTLN 

CALL  AXIS 

CALL  UMOVE  (0.»0.) 

CALL  UCOSYS  (2. »5. » 1 . i 1 . » ?0. ) 
CALL  UPEN1  (0. rO. r ’DARROH* ) 
CALL  AXIS 

CALL  UCOSYS  (5. » 1 . » 1 . » 1 . »45. ) 
CALL  USET  < ‘SYSTEMAXIS* > 

CALL  UMOVE  (0.»0.) 

CALL  USET  ( ’USERAXIS' ) 

CALL  UF'SNl  (0.  »0. » *DARRQW" ) 

CALL  AXIS 

CALL  UEND 

STOP 

END 

SUBROUTINE  AXIS 
CALL  UMOVE  <-l.»0.) 

CALL  UPEN1  < 1 . »0. > 'LARROU* ) 
CALL  UMOVE  (0.»-l.) 

CALL  UPEN  (O.fI.) 

CALL  UEND 

STOP 

END 
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CALL  USTART 

CALL  UVIINDO  (-1 .  »9.  »-l . »?. ) 
CALL  UOUTLN 

CALL  USET  CREFERENCEAXIS*) 

CALL  AXIS 

CALL  UMOVE  (0.»0.) 

CALL  UCOSYS  <2. i5.il.il. >20.) 
CALL  UPEN1  (0. iO.i ‘DARROU* ) 
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EXAMPLE  10.4 


T=0. 

THETA=75. 

V0=107 . 

X0=-180 . 

Y0=  0 . 

CALL  USTART 

CALL  USET  < 'WORKINGAXIS' ) 

CALL  UWINDO  (-225. ,225. ,-15. ,95. > 

CALL  UOUTLN 

CALL  UM0VE  <X0»Y0> 

CALL  USET  ( 'SOFTWARE ' ) 

CALL  UPSET  ( ’HORIZONTAL* ,6. ) 

CALL  UPSET  ('VERTICAL ’,3.) 

CALL  UPSET  CSETDASH*  ,92.  ) 

DO  1  I  ~  1,  11 
X  =  <.707*V0*T>  E  XO 
Y  -  T  *  (.707  *  VO  -  <16.*T>)  +  YO 
CALL  UCOSYS  < X , Y , 1 ., 1 THETA ) 

CALL  UPEN1  (0. ,0. , ‘DASH* ) 

CALL  UWINDO  ( 0 . , 100 . , 0 , , 100. ) 

CALL  UWHERE  (X,Y) 

CALL  UPEN1  ( X, Y, ' DD* ) 

CALL  UWINDO  (-225. ,225. ,-15.  ,95. ) 

T  =  T  +  0 • 4758 
THETA  =  THETA  +  57. 

1  CONTINUE 
CALL  UEND 
STOP 
END 
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EXAMPLE  10.5 


T=0. 

V0=107. 

X0=-180. 

Y0=0. 

CALL  USTART 

USET  ( “WORKINGAXIS*  > 


CALL 
CALL 
CALL 
VX  = 
ZETA 
CALL 
CALL 
DO  1 


UUINDO  (-225. >225. f- 15. f 95. ) 
UOUTLN 
.707  *  VO 
=  11.  *  VX 
UMOVE  <xo»ro> 

UPSET  ( 'SETDASH' .  92 . ) 

I  =  If  11 
X  =  <VX*T)  +  XO 
VY  =  2.  *  (VX  -  <32. *T)> 

Y  =  T  *  (VX  -  ( 16.tT) )  +  YO 
CALL  UCOSYS  (XiYtl.fl.fO.) 

UPEN1  (0. »0.» 'DASH' ) 

UWINDO  (0. » ZETA. -ZETA » ZETA) 
USET  ('RELATIVE*) 

(VXfO.f'LARROW) 
<-VX»0.) 

(0. rVYf 'LARROU* ) 
(O.f-VY) 

ABSOLUTE') 


CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 


UPEM1 

UMOVE 

UPEM1 

UMOVE 

USET 


UWINDO  (-225. f225. .-15, »95.) 
T--Tt  .4758 
CONTINUE 
CALL  UEND 
STOP 
END 
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EXAMPLE  10.5 


T=0. 

V0=107 . 

X0=-180. 

Y0-0. 

CALL  USTART 

CALL  USET  < ‘UURKINGAXIS* ) 

CALL  UUINDO  (-225. .225. >-15. .95. > 

CALL  UOUTLN 

VX  =  .70?  *  VO 

ZETA  =  11.  *  VX 

CALL  UMOVE  (XO.YO) 

CALL  UPSET  ( 'SETDASH*  *  92. ) 

DO  1  I  =  1.  11 

X  -  (VXtT)  +  XO 

VY  =  2.  *  (VX  -  <32.*T>) 

Y  =  T  *  (VX  -  (16.*T>)  +  YO 
CALL  UCOSYS  (X.Y.1..1..0,) 

CALL  UPEM1  (0. >0. » 'DASH* ) 

CALL  UUINDO  (0. .ZETA. -ZETA. ZETA) 
CALL  USET  < 'RELATIVE* ) 

CALL  UPEN1  ( VX.O. . 'LARROW'  ) 

CALL  UMOVE  (-VX.O.) 

CALL  UPEN1  (0. »VY. ‘LARROW* ) 

CALL  UMOVE  (0..-VY) 

CALL  USET  ('ABSOLUTE*) 

CALL  UUINDO  (-225. .225. .-15. .95. ) 
T  =  T  +  .4758 
1  CONTINUE 
CALL  UEND 
STOP 
END 
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EXAMPLE  10.6 


T  =  0 . 

V0=107 . 

X0=-180. 

Y0=0 . 

CALL  USTART 

CALL  USET  < ’WORKINGAXIS’ ) 

CALL  UWINDO  <-225. ,225. ,-225. ,225. ) 
CALL  UOUTLN 
VX  -  .707  *  VO 
CALL  UMOVE  <X0,Y0) 

CALL  UPSET  ( ’SETDASH’ ,92. ) 

CALL  USET  < •RADIANS’) 

DO  1  I  -  1.  11 
X  =  <VX*T>  +  XO 
Y  =  T  *  <VX  -  <16. *T)>  +  YO 
DYDX  =  1  -  <32  *  (X-XO)  /  VX**2> 
CALL  UCOSYS  <X» Y» 1 . » 1 , » ATAN(DYDX) ) 
CALL  UPEN1  (0. >0. f 'DASH*  > 

CALL  UWINDO  < 0 .  ,  1 . » -1 .  .0 . ) 

CALL  USET  ( ’RELATIVE* ) 

CALL  UPEN1  < .05,0. ,’LARROW’) 

CALL  UMOVE  <-.05,0. ) 

CALL  UPEN1  (0. >-.05, ’L ARROW ) 

CALL  UMOVE  (0.,.05) 

CALL  USET  < ’ABSOLUTE’) 

CALL  UWINDO  < -225. , 225 . , -225. ,225 . ) 
T  =  T  +  .4758 
1  CONTINUE 
CALL  UEND 
STOP 
END 


130 


EXAMPLE  12.1 


CALL  ATTACH( 1 , ’GRAPHICS/LESSON/FI LEI 21 »*>3>0»1STAT>) 
CALL  ATTACH* 8* 'GRAPHICS/LESSON/F ILE 12 1 S i *  , 3 , 0 , ISTAT , : 
CALL  USTART 

CALL  UPSET  ( 'TERMINATOR* , ' » ' ) 

CALL  UPSET  ('SPEED1 *120.) 

CALL  UPSET  ( 'LIBRARY* » 1 . ) 

CALL  UPSET  ( ‘SETDASH1 » 1 . ) 

CALL  USET  < 'PERCENTUNITS* ) 

CALL  UDAREA  <0. , 100 . , 0. » 100. > 

CALL  UERASE 
CALL  UOUTLN 

CALL  UWINDO  (-100. , 100. >-100. , 100. ) 

CALL  USTRCT  ('AXIS  1 ) 

CALL  AXIS 

CALL  UTERM  ('AXIS  *) 

CALL  USET  ('ORTHOGONAL') 

CALL  U3CSYS  (25. , 25 . , 25. , 1 . , 1 . , 1 . , 10 . , 10. , 0. > 

CALL  UVIEW  <-20.»-20.»-150.»0.,0.»0.) 

CALL  USTRCT  ('BOX  ') 

CALL  BOX 

CALL  UTERM  ('BOX  ') 

CALL  USET  ('PERSPECTIVE') 

CALL  BOX 

CALL  UTILTY  ( 'SAVE' >8. ) 

CALL  UTILTY( 'PURGE', 1.) 

CALL  UEND 

STOP 

END 

SUBROUTINE  AXIS 
CALL  USET  ('DASH') 

CALL  U3M0VE  (-20. ,-20. ,-20. ) 

CALL  U3PEN  <50 . ,-20 . . -20 . ) 

CALL  UPRNT1  < * X i ' » ' TEXT ' ) 

CALL  U3M0VE  (-20. ,-20. ,-20. ) 

CALL  U3PEN  (-20. ,50. ,-20. ) 


CALL  U3M0VE  < -20. , -20 . , -20 . ) 

CALL  U3PEN  (-20. ,-20. , 100. > 

CALL  UPRNT1  <  *Z»  * , '  TEXT* ) 

CALL  UEND 

STOP 

END 

SUBROUTINE  BOX 
CALL  USET  CLINE') 

CALL  U3M0VE  <0.,0.,0.) 

CALL  U3PEN  (10.,0.,0.> 

CALL  U3PEN  (10.,10.,0.) 

CALL  U3PEN  (0.,10.,0.) 

CALL  U3PEN  <0.,0.,0.) 

CALL  U3M0VE  <10. ,0. ,0. ) 

CALL  U3PEN  (10.,0.,60.) 

CALL  U3PEN  < 10 . , 10 . ,60 . ) 

CALL  U3PEN  <10.,10.,0.) 

CALL  U3M0VE  <0.,10.,0.) 

CALL  U3PEN  (0.,10.,60.) 

CALL  U3PEN  (10. ,10. ,60. ) 

CALL  U3M0VE  (0.,0.,0.) 

CALL  U3PEN  <0.,0.,60.) 

CALL  U3PEN  (0.,10.,60.) 

CALL  U3PEN  <0.,10.,0.) 

CALL  U3M0VE  <0.,0.,60.) 

CALL  U3PEN  (10.f0.,60.) 

CALL  UEND 
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CALL  ATTACH ( 1. "GRAPHICS/LESSON/FILE1245 * ,2>0>ISTAT> > 
CALL  ATTACH(8> "GRAPHICS/LESSON/VILLAGf  *  >3>0> ISTAT > ) 

CALL  USTART 

CALL  UPSET  ( ’LIBRARY*  >  1 . ) 

CALL  UTILTT  ( "LOAD" >  9.  ) 

CALL  UPSET ( 'TERMINATOR1 > "<" ) 

CALL  USET  ( "VIEWDISTANCE" ) 

CALL  UVWPRT  (150.) 

CALL  UWINDO  (-100. >100. >-100. >100.  ) 

CALL  UVIEW  (-40. >200, >70. >-20. >20. ,0.) 

CALL  VILLAG 
CALL  UEND 
STOP 
END 

SUBROUTINE  VILLAG 
CALL  USET  ("XYZ  *  ) 

CALL  USE T  ("SYSTEMAXIS") 

CALL  USET  ( ‘REFERENCEAXIS* ) 

CALL  USET  ("BLACK") 

CALL  U3CALL  ( -50 , >20. > 0 . > 1 . > 1 . > 1 . > 90 . > 0 . > 0. > *  CHURCH  ’  > 
CALL  USET  ("RED  ") 

CALL  U3CALL  ( 24 . > -19. > 0 . > 1 . > 1 . > 1 . >90 . > -90 . > 0 . > *  SCHOOL  * ) 
CALL  USET  ("BLUE") 

CALL  U3CALL  (70. >70. >0. >0.7>0.7>0.7>0. >0. >0. > "PIZZA" ) 
CALL  USET  ("BLACK") 

CALL  U3CALL  (0. >0.  >0. > 1 . > 1 . > 1 . >0. > 0. >0 . > "ROAD  ") 

CALL  UEND 


EXAMPLE  13.1 


CALL  ATTACH< 1 » 'GRAPHICS/LESS0N/FILE131 » ' » 3»0» ISTAT i 
X  =  10.0 

Y  =  80.0 
CALL  USTART 

CALL  UPSET  ( 'LIBRARY* ,1.) 

CALL  UOUTLN 

DO  1  I  =  1,  8 

CALL  UFRAME  ('TRIANGLE*) 

CALL  UHOVE  <X»X) 

CALL  UPEN  (X* (X+5.0) ) 

CALL  UPEN  < (X+5.0) »X> 

CALL  UPEN  (Xf X) 

CALL  UFREND  ('TRIANGLE') 

CALL  UFRAME  ('SQUARE') 

CALL  UMOVE  <X»Y) 

X  =  X  +  10.0 

Y  =  Y  -  10.0 

CALL  URECT  ( (X-5.0) » (Y+15.0) ) 

CALL  UFREND  ('SQUARE') 

1  CONTINUE 
CALL  UEND 
STOP 
END 
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EXAMPLE  13.2 


CHARACTER  CHARtl  _ _ 

CALL  ATTACH( 1 t 'GRAPHICS/LESS0N/FILE132 » 

X=10.0 

CALL  USTART 

CALL  UPSET  ('LIBRARY* »1.) 

CALL  UOUTLN 

DO  1  I  =  1>  8 

CALL  UFRAME  ( 'TRIANGLE* ) 

CALL  UMOVE  (X»X) 

CALL  UPEN  (X» (X+5.0) ) 

CALL  UPEN  < (X+5.0) »X) 

CALL  UPEN  (X»X) 

X  =  X  +  10.0 

CALL  UFREND  ('TRIANGLE') 

CONTINUE 

CALL  UNSHOH  ('TRIANGLE') 

CALL  UAIN  (CHAR)  „  „  , 

IF  (CHAR  .NE.  'T')  60  TO  3 
CALL  USHOU  ('TRIANGLE') 

GO  TO  2 
CALL  UEND 
STOP 
END 


»3»0»ISTAT > ) 
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EXAMPLE  13.3 


CALL  ATTACH ( 1  * 'GRAPHICS/LESSON/FI LEI 33 » *  >3»0i ISTAT » 
DEGREES. 

CALL  USTART 

CALL  UPSET  ( 'LIBRARY* »1.) 

CALL  UUINDQ  <-50.  >50. >-50. >50. ) 

CALL  UOUTLN 

CALL  USET  < 'POLAR') 

DO  1  I  *  It  12 
DEGREE  =  DEGREE  +  30.0 
CALL  UFRAHE  <* SQUARE') 

UNOVE  <25. > DEGREE) 

UPSET  < 'ROTATE ' > DEGREE ) 

USET  < 'RELATIVE') 

UPLYGN  <0. >0. >  4 . >  5. ) 

USET  < 'ABSOLUTE') 

UFREND  < 'SQUARE') 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
1  CONTINUE 
CALL  UEND 
STOP 
END 
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X  A  M  P  L  E  13.4 


INTEGER  FRAME  (?) 

DATA  FRAME/' A* I'B'i'C'r'D'i'E'i'F'r'G't'H'f'I'/ 
CALL  ATTACH< 1 1 'GRAPHICS/LESSON/F ILE 1 34  !  1  » 3 » 0  > ISTAT  r 
CALL  USTART 

CALL  UPSET  < 'LIBRARY' ,1.) 

CALL  UOUTLN 

DO  1  I  =  1 »  9 

X  =  10.0  *  FLOAT ( I ) 

CALL  UFRAME  ( FRAME ( I ) ) 

CALL  UMOVE  (X.X) 

CALL  UPSET  ( 'ROTATE' ,X> 

CALL  USET  <* RELATIVE') 

CALL  UPLYGN  (0. >0. > 4. i FLOAT ( I ) ) 

CALL  USET  ('ABSOLUTE') 

CALL  UFREND  (FRAME ( I >  > 

CALL  UNSHOW  (FRAME< I ) > 

1  CONTINUE 

DO  2  I  =  1,  9 
J  =  MOD( (1-1 ) »9)  +  1 
CALL  USHOW  ( FRAME ( J )  ) 

CALL  UNSHOW  (FRAME< J) ) 

2  CONTINUE 
CALL  UEND 
STOP 

END 
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In  accordance  with  letter  from  DAEN-RDC,  DAEN-ASI  dated 
22  July  1977,  Subject:  Facsimile  Catalog  Cards  for 
Laboratory  Technical  Publications,  a  facsimile  catalog 
card  in  Library  of  Congress  MARC  format  is  reproduced 
below. 


Ward,  Darrell 

Notebook  for  lessons  on  the  Graphics  Comparability 
System  (GCS)  /  by  Darrell  Ward,  James  M.  Jones  II, 

Michael  H.  George  (Automatic  Data  Processing  Center, 

U.S.  Army  Engineer  Waterways  Experiment  Station).  -- 
Vicksburg,  Miss.  :  The  Station  ;  Springfield,  Va,  : 
available  from  NTIS,  1982. 

143  p.  ;  ill.  ;  27  cm.  --  (Instruction  report  ;  K-82-4) 
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